dohuifu.asp

asp开发 asp开发 asp开发 asp开发

<%
if Request("name") <> "" then 
cID = request("cID")
name = left(request("name"),15)
memo = request("memo")
memo = Replace( memo, vbCrLf, "<BR>" )
If name = "" Or memo = "" Then
   Response.Write "输入框不能为空白!"
   Response.End '不再处理以下的程序
End If

sql = "INSERT INTO hfBook(用户名,rID,回复内容,ip)" &_
	"VALUES('" & name & "','" & cID & "','" & memo & "','" &_
	Request.ServerVariables("REMOTE_ADDR") & "')"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &_
	Server.MapPath("lyb.mdb")
conn.execute(sql)
Response.Write("<Script language='JavaScript'>")
Response.Write("opener.refreshFrm.submit();")
Response.Write("window.close()")
Response.Write("</script>")
End if
%>
<FORM ACTION="" METHOD="POST">
 <TABLE CELLSPACING=1 CELLPADDING=2 WIDTH=262 ALIGN=CENTER 
            bgColor=#999999 border=0>
 <TR bgColor=#ffffff>
<TD>  <P>姓名：</P>  </TD>
<TD> <input TYPE="TEXT" NAME="Name" SIZE="20" VALUE="闲云野鹤"
	STYLE="WIDTH: 203; HEIGHT: 20">
   <INPUT TYPE="HIDDEN" NAME="cID" SIZE="20" VALUE="<%=request("ID")%>"
  STYLE="WIDTH: 203; HEIGHT: 20">
  </TD></TR>
<TR bgColor=#ffffff>
<TD colspan="2"> 
  留言：<br><textarea NAME="Memo" ROWS="6" COLS="31"></textarea>
  </TD></TR>
<TR bgColor=#ffffff>
<TD colspan="2"> <input type="submit" value="提交">
  </TD></TR></TABLE>
</FORM>