打印本文 打印本文 关闭窗口 关闭窗口
自动生成插入,修改的SQL
作者:武汉SEO闵涛  文章来源:敏韬网  点击数2153  更新时间:2007/11/14 12:55:40  文章录入:mintao  责任编辑:mintao
"''''"
            End Select
            iFields  = iFields & ", "" & _" & vbCrlf
            iDataFields  = iDataFields & ","" & _ " & vbCrlf
            updateSQL = updateSQL & ","" & _ " & vbCrlf
        End If
    Next
    iFields = Mid(iFields,1,len(iFields) - 9)
    iDataFields = Mid(iDataFields,1,len(iDataFields) - 9)
    insertSQL = insertSQL & iFields & ") VALUES ("" & _"  & vbCrlf & iDataFields & ")"""
    updateSQL = Mid(updateSQL,1,len(updateSQL) - 9) & """ & _ " & vbCrLf & """ WHERE " & keyFieldName & "="" & request.QueryString(""" & keyFieldName & """)"
End If
conn.close()
Set conn = Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>自动生成插入,修改SQL</title>
<style type="text/css">
body {
 font-family: "宋体",Arial;
 font-size: 9pt;
 color: #0000FF;
 background-color: #EEEEEE;
}
</style>
</head>
<body>
<form name="tableOpreate" action="?" method="post">
表名:<input name="TableName" type="text" id="TableName" value="product_research"><br>
关键字字段:<input name="keyField" type="text" id="keyField" value="pf_id"><br>
过滤“''''”函数:<input name="funQuote" type="text" id="funQuote" value="fixQuote"><input name="subTable" type="submit" id="subTable" value="Submit"><br>
INSERT SQL:<BR><% response.Write("<textarea name=""textarea"" cols=""60"" rows=""10"">" & insertSQL & "</textarea><BR>")%>
UPDATE SQL:<BR><% response.Write("<textarea name=""textarea"" cols=""60"" rows=""10"">" & updateSQL & "</textarea><BR>")%>
</form>
</body>
</html>

上一页  [1] [2] 

打印本文 打印本文 关闭窗口 关闭窗口