<% ' Option Explicit ' ============================== ' 添加类别 ' Function AddTypeInfo (strTableName, strContentName, strDescription) If Len (strTableName) <> 0 and Len (strContentName) <> 0 Then Dim strSQL strSQL = "Insert Into " & strTableName & " Values ('" & strContentName & "', '" & strDescription & "')" AddTypeInfo = ExecSQL (strSQL) Else AddTypeInfo = False End If End Function ' ============================ ' 更改类别 ' Function UpdateTypeInfo (strTableName, strContentName, strDescription, iKeyword) If Len (strTableName) <> 0 And Len (strContentName) <> 0 And IsNumeric (iKeyword) then Dim strSQL strSQL = "Update " & strTableName & " Set sName = '" & strContentName & "', sDescription = '" & strDescription & "' where ID = " & iKeyword & "" UpdateTypeInfo = ExecSQL (strSQL) Else UpdateTypeInfo = ExecSQL (strSQL) End If End Function ' =========================== ' 执行数据库连接 ' Function ExecSQL (strSQL) If Len (strSQL) <> 0 Then conn.Execute (strSQL) If Err.number <> 0 then ExecSQL = False Else ExecSQL = True End If Else ExecSQL = False End If End Function ' 错误处理 Sub ErrHandler (ErrorNo) Select case ErrorNo Case 0 strSuccMessage = "添加成功" strErrMessage = "添加成功" Case 1 strSuccMessage = "修改成功" strErrMessage = "修改成功" Case 2 strSuccMessage = "删除成功" strErrMessage = "删除成功" End Select End Sub ' 列表框的类型信息选择 时间：4-10 Sub SelTypeInfo (tableName, ID) sql = "Select ID, tName From " & TableName & " Order by ID" Response.Write "" & vbCrLF Response.Write " 请选择" & vbCrLF Set objTemp = conn.Execute (sql) IF Not objTemp.Eof Then Do while not objTemp.Eof If objTemp (0) = ID Then Response.Write "" & objTemp (1) Else Response.Write "" & objTemp (1) End If objTemp.MoveNext Loop End If objTemp.Close Set objTemp = Nothing Response.Write "" & vbCrLF End Sub ' 列举所有的类型信息 时间：4-10 例示程序：user/addinfocorp.asp Sub EnumTypeInfo (TableName) sql = "Select ID, tName From " & TableName & " Order by ID" Response.Write "" & vbCrLF Response.Write " 请选择" & vbCrLF Set objTemp = conn.Execute (sql) IF Not objTemp.Eof Then Do while not objTemp.Eof Response.Write "" & objTemp (1) objTemp.MoveNext Loop End If objTemp.Close Set objTemp = Nothing Response.Write "" & vbCrLF End Sub Function FormatSQL (str) FormatSQL = Replace (Trim (str), "'", "''") End Function ' 原料助剂供应商 Sub ListProvider () sql = "Select Distinct c.CompanyID, c.tCompany From tProduct p, tCompany c" sql = sql & " where c.CompanyID = p.CompanyID and p.mPublish = 1 and p.mDel = 0 order by c.CompanyID DESC" Set objTemp = Server.CreateObject ("ADODB.Recordset") objTemp.MaxRecords = 6 objTemp.Open sql, conn, 1, 1 str = "" Response.Write "" Do While not objTemp.Eof Response.Write "" Response.write "" str = objTemp ("tcompany") If Len (str) > 16 Then str = Left (objTemp ("tcompany"), 16) End If Response.Write "" Response.Write "" i = i + 1 objTemp.MoveNext Loop objTemp.Close Set objTemp = Nothing Response.Write "" Response.Write "

" Response.Write "" Response.Write "	" & objTemp ("tCompany") & "
" Response.Write "    >>更多...

" End Sub Function SafeRequest(ParaName,ParaType) Dim ParaValue ParaValue=Request(ParaName) If ParaType=1 then If not isNumeric(ParaValue) then Response.write "参数" & ParaName & "必须为数字型！" Response.end End if Else ParaValue=replace(ParaValue,"'","''") End if SafeRequest=ParaValue End function %>