这就是我的代码,谢谢了哦!
Recordset1:性别的图像
Recordset2:留言人的基本资料
Recordset3:头像的图像
<%@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 & "?" & 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"
) = "form"
Then
MM_editConnection = MM_conn_STRING
MM_editTable = "use"
MM_editRedirectUrl = "index.asp"
MM_fieldsStr = "title|value|name|value|sex|value|face|value|contant|value|ip|value|textfield|value|textfield2|value"
MM_columnsStr = "title|',none,''|name|',none,''|sex|',none,''|face|',none,''|contant|',none,''|IP|',none,''|oicq|',none,''|e-mail|',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 Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset"
Recordset1.ActiveConnection = MM_conn_STRING
Recordset1.Source = "SELECT * FROM sex"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Recordset2
Dim Recordset2_numRows
Set Recordset2 = Server.CreateObject("ADODB.Recordset"
Recordset2.ActiveConnection = MM_conn_STRING
Recordset2.Source = "SELECT * FROM use"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 3
Recordset2.Open()
Recordset2_numRows = 0
%>
<%
Dim Recordset3
Dim Recordset3_numRows
Set Recordset3 = Server.CreateObject("ADODB.Recordset"
Recordset3.ActiveConnection = MM_conn_STRING
Recordset3.Source = "SELECT * FROM face"
Recordset3.CursorType = 0
Recordset3.CursorLocation = 2
Recordset3.LockType = 1
Recordset3.Open()
Recordset3_numRows = 0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留言</title>
</head>
<body>
<form ACTION="<%=MM_editAction%>" METHOD="POST" name="form" id="form">
<table width="34%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="26%"><font size="2">留言主题：</font></td>
<td width="74%"> <font size="2">
<input name="title" type="text" id="title">
</font></td>
</tr>
<tr>
<td><font size="2">你的名字：</font></td>
<td><font size="2">
<input name="name" type="text" id="name">
</font></td>
</tr>
<tr>
<td><font size="2">性别：</font></td>
<td><font size="2">
<select name="sex" id="sex">
<%
While (NOT Recordset1.EOF)
%>
<option value="<%=(Recordset1.Fields.Item("sex"
.value)%>" <%If (Not isNull((Recordset2.Fields.Item("sex"
.value))) Then If (CStr(Recordset1.Fields.Item("sex"
.value) = CStr((Recordset2.Fields.Item("sex"
.value))) Then Response.Write("SELECTED"
: Response.Write(""
%> ><%=(Recordset1.Fields.Item("sex"
.value)%></option>
<%
Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If
%>
</select>
</font></td>
</tr>
<tr>
<td><font size="2">头像：</font></td>
<td><font size="2">
<select name="face" id="face">
<%
While (NOT Recordset3.EOF)
%>
<option value="<%=(Recordset3.Fields.Item("newspace"
.value)%>" <%If (Not isNull((Recordset2.Fields.Item("face"
.value))) Then If (CStr(Recordset3.Fields.Item("newspace"
.value) = CStr((Recordset2.Fields.Item("face"
.value))) Then Response.Write("SELECTED"
: Response.Write(""
%> ><%=(Recordset3.Fields.Item("ID"
.value)%></option>
<%
Recordset3.MoveNext()
Wend
If (Recordset3.CursorType > 0) Then
Recordset3.MoveFirst
Else
Recordset3.Requery
End If
%>
</select>
<a href="face.htm">查看头像列表</a></font></td>
</tr>
<tr>
<td valign="top"><font size="2">留言内容：</font></td>
<td><font size="2">
<textarea name="contant" id="contant"></textarea>
</font></td>
</tr>
<tr>
<td><font size="2"> </font></td>
<td><font size="2">
<input name="ip" type="hidden" id="ip" value="<%=request.ServerVariables("LOCAL_ADDR"
%>"LOCAL_ADDR"
">
</font></td>
</tr>
<tr>
<td><font size="2">OICQ:</font></td>
<td valign="middle"><font size="2">
<input type="text" name="textfield">
</font></td>
</tr>
<tr>
<td><font size="2"> EMAIL:</font></td>
<td><font size="2">
<input type="text" name="textfield2">
</font></td>
</tr>
<tr>
<td><font size="2"> </font></td>
<td> <font size="2">
<input type="submit" name="Submit" value="提交">
</font></td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="form">
</form>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<%
Recordset3.Close()
Set Recordset3 = Nothing
%>
