<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%<!--#includefile="../Connections/ p"--<%'***EditO (Request.ServerVariables("SCRIPT_NAME"))If(Request.QueryString<"")ThenMM_editAction=MM_editAction&"?"&Server.HTMLEncode(Request.QueryString)EndIf'booleantoabortrecordeditMM_abortEdit=false'querystringtoexecuteMM_editQuery=""%<%'***Ins (CStr(Request("MM_insert"))="form1")ThenMM_editConnection=MM_lhq_STRINGMM_editTable="bbs"MM_editRedirectUrl=" m"MM_fieldsStr="textfield|value|textarea|value|user|value|time|value"MM_columnsStr="主题|',none,''|正文|',none,''|用户名|',none,''|发布时间|',none,NULL"'createtheMM_fieldsandMM_columnsarraysMM_fields=Split(MM_fieldsStr,"|")MM_columns=Split(MM_columnsStr,"|")'settheformvaluesForMM_i=LBound(MM_fields)ToUBound(MM_fields)Step2MM_fields(MM_i+1)=CStr(Request.Form(MM_fields(MM_i)))Next'appendthequerystringtotheredirectURLIf(MM_editRedirectUrl<""AndRequest.QueryString<"")ThenIf(InStr(1,MM_editRedirectUrl,"?",vbTextCompare)=0AndRequest.QueryString<"")ThenMM_editRedirectUrl=MM_editRedirectUrl&"?"&Request.QueryStringElseMM_editRedirectUrl=MM_editRedirectUrl&"&"&Request.QueryStringEndIfEndIfEndIf%<%'***Ins (CStr(Request("MM_insert"))<"")Then'createthesqlinsertstatementMM_tableValues=""MM_dbValues=""ForMM_i=LBound(MM_fields)ToUBound(MM_fields)Step2MM_formVal=MM_fields(MM_i+1)MM_typeArray=Split(MM_columns(MM_i+1),",")MM_delim=MM_typeArray(0)If(MM_delim="none")ThenMM_delim=""MM_altVal=MM_typeArray(1)If(MM_altVal="none")ThenMM_altVal=""MM_emptyVal=MM_typeArray(2)If(MM_emptyVal="none")ThenMM_emptyVal=""If(MM_formVal="")ThenMM_formVal=MM_emptyValElseIf(MM_altVal<"")ThenMM_formVal=MM_altValElseIf(MM_delim="'")Then'escapequotesMM_formVal="'"&Replace(MM_formVal,"'","''")&"'"ElseMM_formVal=MM_delim+MM_formVal+MM_delimEndIfEndIfIf(MM_i<LBound(MM_fields))ThenMM_tableValues=MM_tableValues&","MM_dbValues=MM_dbValues&","EndIfMM_tableValues=MM_tableValues&MM_columns(MM_i)MM_dbValues=MM_dbValues&MM_formValNextMM_editQuery="insertinto"&MM_editTable&"("&MM_tableValues&")values("&MM_dbValues&")"If(NotMM_abortEdit)Then'executetheinsertSetMM_editCmd=Server.CreateObject("ADODB.Command")MM_editCmd.ActiveConnection=MM_editConnectionMM_editCmd.CommandText=MM_editQueryMM_editCmd.ExecuteMM_editCmd.ActiveConnection.CloseIf(MM_editRedirectUrl<"")ThenResponse.Redirect(MM_editRedirectUrl)EndIfEndIfEndIf%<%DimRecordset1DimRecordset1_numRowsSetRecordset1=Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection=MM_lhq_STRINGRecordset1.Source="SELECT*FROMbbs"Recordset1.CursorType=0Recordset1.CursorLocation=2Recordset1.LockType=1Recordset1.Open()Recordset1_numRows=0%<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.01Transitional//EN"""<html<head<metahttp-equiv="Content-Type"content="text/html;charset=gb2312"<title无标题文档</title<linkhref="../css.css"rel="stylesheet"type="text/css"</head<body<formname="form1"method="POST"action="<%=MM_editAction%"<tablewidth="100%"height="241"border="0"cellpadding="0"cellspacing="0"<tr<tdclass="unnamed1"添加新帖</td</tr<tr<tdclass="unnamed1"<divalign="center"文章主题<inputtype="text"name="textfield"</div</td</tr<tr<tdalign="center"valign="middle"class="unnamed1"<textareaname="textarea"cols="60"rows="10"</textarea
热心网友
看上去是数据库绑定的问题，你的问题是什么?如果跑步动可能是缺少中的 p或者没做控制面版的数据源设置，或者是dreamweaver没定义站点