表单上的数据怎么传递不到数据库中啊,
这是Dreamweaver中自动生成的代码,不知道哪里错了,错误提示是找不到文件:求助!!!!!!!!!!!!!!!!!1
<%@LANGUAGE= "VBSCRIPT " CODEPAGE= "936 "%>
<!--#include file= "Connections/conn.asp " -->
<%
' *** Edit Operations: declare variables
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd
Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId
Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i
MM_editAction = CStr(Request.ServerVariables( "SCRIPT_NAME "))
If (Request.QueryString <> " ") Then
MM_editAction = MM_editAction & "? " & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = " "
%>
<%
' *** Insert Record: set variables
If (CStr(Request( "MM_insert ")) = "form1 ") Then
MM_editConnection = MM_conn_STRING
MM_editTable = "admin_liuyan "
MM_editRedirectUrl = "留言.asp "
MM_fieldsStr = "textfield|value "
MM_columnsStr = "admin_liuyan| ',none, ' ' "
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "| ")
MM_columns = Split(MM_columnsStr, "| ")
' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> " " And Request.QueryString <> " ") Then
If (InStr(1, MM_editRedirectUrl, "? ", vbTextCompare) = 0 And Request.QueryString <> " ") Then
MM_editRedirectUrl = MM_editRedirectUrl & "? " & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "& " & Request.QueryString
End If
End If
End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it
Dim MM_tableValues
Dim MM_dbValues
If (CStr(Request( "MM_insert ")) <> " ") Then
' create the sql insert statement
MM_tableValues = " "
MM_dbValues = " "
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1), ", ")
MM_delim = MM_typeArray(0)
If (MM_delim = "none ") Then MM_delim = " "
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none ") Then MM_altVal = " "
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none ") Then MM_emptyVal = " "
If (MM_formVal = " ") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> " ") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = " ' ") Then ' escape quotes
MM_formVal = " ' " & Replace(MM_formVal, " ' ", " ' ' ") & " ' "
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ", "
MM_dbValues = MM_dbValues & ", "
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " ( " & MM_tableValues & ") values ( " & MM_dbValues & ") "
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject( "ADODB.Command ")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> " ") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
<%
Dim liuyan
Dim liuyan_numRows
Set liuyan = Server.CreateObject( "ADODB.Recordset ")
liuyan.ActiveConnection = MM_conn_STRING
liuyan.Source = "SELECT * FROM admin_liuyan "
liuyan.CursorType = 0
liuyan.CursorLocation = 2
liuyan.LockType = 1
liuyan.Open()
liuyan_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN " "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd ">
<html xmlns= "http://www.w3.org/1999/xhtml ">
<head>
<meta http-equiv= "Content-Type " content= "text/html; charset=gb2312 " />
<title> 刊物论坛 </title>
<style type= "text/css ">
<!--
.STYLE7 {font-size: 14px; color: #FFFFFF; }
.STYLE10 {color: #FFFFFF; font-size: 12px; }
-->
</style>
</head>
<body>
<table width= "100% " border= "0 ">
<tr>
<td height= "150 "> <img src= "image/shangbiao.gif " name= "LOGO " width= "100% " height= "100% " align= "left " lowsrc= "image/shangbiao.gif " id= "LOGO " /> </td>
<td height= "150 "> <object classid= "clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 " codebase= "http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0 " width= "100% " height= "100% ">
<param name= "movie " value= "image/banner.swf " />
<param name= "quality " value= "high " />
<param name= "SCALE " value= "noborder " />
<embed src= "image/banner.swf " width= "100% " height= "100% " quality= "high " pluginspage= "http://www.macromedia.com/go/getflashplayer " type= "application/x-shockwave-flash " scale= "noborder "> </embed>
</object> </td>
</tr>
<tr>
<td height= "26 " colspan= "2 " align= "center " background= "image/index_2.gif "> <span class= "STYLE7 "> | <a href= "index.asp "> 首页 </a> | <a href= "Company.asp "> 公司简介 </a> | <a href= "Introduction.asp "> 栏目简介 </a> | <a href= "Reporter Station .asp "> 记者站 </a> | <a href= "Forum .asp "> 刊物论坛 </a> | <a href= "book.asp "> 电子书刊 </a> | <a href= "Advertising .asp "> 广告服务 </a> | <a href= "login .asp "> 后台控制 </a> </span> </td>
</tr>
<tr>
<td width= "20% " height= "51 " align= "center " bgcolor= "#9C1B1E "> </td>
<td height= "25 " rowspan= "4 " align= "center " valign= "top " bgcolor= "#9C1B1E "> <form ACTION= " <%=MM_editAction%> " METHOD= "POST " id= "form1 " name= "form1 ">
<table width= "559 " border= "0 ">
<tr>
<td height= "104 " colspan= "5 " align= "center " valign= "middle " bgcolor= "#CCCCCC "> <input name= "textfield " type= "text " size= "70 " /> </td>
</tr>
<tr>
<td height= "23 " colspan= "5 " align= "center " bgcolor= "#FFFFFF "> <input type= "submit " name= "Submit " value= "提交 " />
<input type= "reset " name= "Submit2 " value= "取消 " /> </td>
</tr>
</table>
<input name= "hiddenField " type= "hidden " value= "Request.ServerVariables( "REMOTE_ADDR ")
" />
<input type= "hidden " name= "MM_insert " value= "form1 ">
</form> <p align= "left "> </p> </td>
</tr>
<tr>
<td height= "38 " align= "center " bgcolor= "#9C1B1E "> <span class= "STYLE10 "> <a href= "Forum .asp "> 在线评刊 </a> </span> </td>
</tr>
<tr>
<td height= "33 " align= "center " nowrap= "nowrap " bgcolor= "#9C1B1E "> <span class= "STYLE10 "> <a href= "Forum 1).asp "> 我要留言 </a> </span> </td>
</tr>
<tr>
<td height= "36 " align= "left " valign= "top " nowrap= "nowrap " bgcolor= "#9C1B1E "> </td>
</tr>
<tr>
<td height= "15 " colspan= "2 " align= "center " bgcolor= "#F70000 "> <span class= "STYLE10 "> ©本网站版权归中国品牌杂志社所有 </span> </td>
</tr>
</table>
</body>
</html>
<%
liuyan.Close()
Set liuyan = Nothing
%>
[解决办法]
找不到那个文件呀?
[解决办法]
IIS对应的目录跟你DW里设置的测试网站没有对应起来。
[解决办法]
可能正如楼上所说,你的IIS目录不对。asp文件要在服务器环境下才可以运行的。
// <!--#include file= "Connections/conn.asp " -->
也可能是你的数据库链接有问题,比如没有数据库文件或者。。。
[解决办法]
MM_editAction这个变量的值就是你要的网面.你把这个值打印出来看看.具体有没有这个页面啊
