杭州交通信息网企业薪资查询:ASP网页求助
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/07 04:33:05
<!--#include file="Conn.asp"-->
<%
user=request.Form("user")
emil=request.Form("emil")
user=replace(user,"'","’")
emil=replace(emil,"'","’")
set rs=conn.execute("select * from book where user='"& user &"' or emil='"& emil &"'")
if rs.eof then
%>
<%
user=request.form("user")
sex=request.Form("sex")
bt=request.Form("bt")
img=request.Form("img")
qq=request.Form("qq")
home=request.Form("home")
emil=request.Form("emil")
ip=request.servervariables("remote_addr")
add=request.Form("add")
text=request.Form("text")
if qq="" and home="" then
qq="还没有呢"
home="http://"
end if
%>
<%
on error resume next
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select user,sex,bt,img,qq,home,emil,ip,add,text from book"
rs.open sql,conn,1,3
rs.Addnew
rs("user")=user
rs("sex")=sex
rs("bt")=bt
rs("img")=img
rs("qq")=qq
rs("home")=home
rs("emil")=emil
rs("ip")=request.servervariables("remote_addr")
rs("time")=now()
rs("add")=add
rs("text")=text
rs.update
rs.close
set rs=nothing '销毁记录集
conn.close '关闭连接
%>
<script language=vbscript>
MsgBox "您成功回复了内容！"
location.href = "index.asp"
</script>
<%
else
%>
<%
response.write"<SCRIPT language=JavaScript>alert('对不起用户名或邮箱已经存在,请返回!');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
%>
<% end if %>
这是我做的一个添加留言的页面， 你可有参考下．
有带论坛类似的UBB哦...
<script src="edit.js" type="text/javascript"></script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="主力摄影">
<meta name="description" content="主力摄影">
<title>主力摄影</title>
<style type="text/css">
td{font-size:12px;}
body {
background-image: url(images/5_10.jpg);
}
</style>
<script language="javascript">
function checkspace(astr)
{
bstr=""
cd=astr.length
for(i=0;i<cd;i++)
{ if(astr.charAt(" ")>=0)
{bstr=bstr+" "}
}
if(bstr==astr)
{
return true;
}
else{return false;}
}
function checkemail(qemail)
{
if(qemail.charAt(0)=="." ||qemail.charAt(0)=="@"||qemail.indexOf('@', 0) == -1 || qemail.indexOf('.', 0) == -1 || qemail.lastIndexOf("@")==qemail.value.length-1 || qemail.lastIndexOf(".")==qemail.value.length-1)
return true;
}
function checkform() {
if(checkspace(form1.name.value)){
alert ("请输入昵称!");
form1.name.value="";
form1.name.focus();
return false;
}
if(checkspace(form1.content.value))
{
alert ("请输入留言内容!");
form1.content.value="";
form1.content.focus();
return false;
}
if(!checkspace(form1.email.value)){
if(checkemail(form1.email.value)){
alert("Email地址格式不正确!");
form1.email.value="";
form1.email.focus();
return false;
}
return true;
}
form1.subm.disabled=true;
}
</script>
</head>
<body topmargin="10">
<script language="javascript" src="../top.js"></script>
<TABLE width=452 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD> </TD>
<TD align=right width=400 height=28> <INPUT style="BORDER-RIGHT: #ffffff 2px solid; BORDER-TOP: #ffffff 2px solid; FONT-SIZE: 12px; BACKGROUND: #ffffff; BORDER-LEFT: #ffffff 2px solid; WIDTH: 70px; BORDER-BOTTOM: #ffffff 2px solid; HEIGHT: 22px;cursor:hand;" type="button" value="查看留言" name="btn2" onclick="javascrit:window.location='./';"> </TD>
</TR></TBODY></TABLE>
<TABLE width=452 border=0 align="center" cellPadding=0 cellSpacing=0 style="BORDER: #dddddd 1px solid;">
<!--DWLayoutTable-->
<TBODY>
<TR bgcolor="#FFFFFF" style="BACKGROUND-COLOR: #f2fdee">
<TD width="74" height=244 bgcolor="#FFFFFF"> </TD>
<TD width="593" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<form action="add.asp" method="post" name="form1" onsubmit="return checkform()">
<tr bgcolor="#FFFFFF">
<td width="42" height="28" align="right">昵 称：</td>
<td colspan="2" valign="top"><input type="text" name="name" maxlength="8" class="input" size="40">
<font color=#ff0000>**</font> </td>
</tr>
<tr>
<td height="28" align="right" bgcolor="#FFFFFF">Email：</td>
<td colspan="2" valign="top" bgcolor="#FFFFFF"><input type="text" name="email" maxlength="30" class="input" size="40">
</td>
</tr>
<tr>
<td height="34" align="right" bgcolor="#FFFFFF">头 像：</td>
<td colspan="2" valign="top" bgcolor="#FFFFFF"><img src="images/a.gif" width="40" height="40" border="0">
<input type="radio" name="sex" value="male.gif" checked> <img src="images/b.gif" width="40" height="40" border="0">
<input type="radio" name="sex" value="b.gif"> <img src="images/c.gif" width="40" height="40" border="0">
<input type="radio" name="sex" value="c.gif"> <img src="images/d.gif" width="40" height="40" border="0">
<input type="radio" name="sex" value="d.gif"> <img src="images/e.gif" width="40" height="40" border="0">
<input type="radio" name="sex" value="e.gif"> <img src="images/f.gif" width="40" height="40" border="0">
<input type="radio" name="sex" value="f.gif"> <img src="images/g.gif" width="40" height="40" border="0">
<input type="radio" name="sex" value="g.gif"> <img src="images/h.gif" width="40" height="40" border="0">
<input type="radio" name="sex" value="h.gif"> <img src="images/i.gif" width="40" height="40" border="0">
<input type="radio" name="sex" value="i.gif"> <img src="images/j.gif" width="40" height="40" border="0">
<input type="radio" name="sex" value="j.gif"></td>
</tr>
<tr>
<td height="56" align="right" valign="top" bgcolor="#FFFFFF">内 容：</td>
<td colspan="2" valign="top" bgcolor="#FFFFFF"> <!--#include file="eokedit.asp"--> <script language="javascript">
document.write ('<iframe src="textbox.asp" id="message" width="450" height="150"></iframe>')
frames.message.document.designMode = "On";
</script></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="46" align="right" bgcolor="#FFFFFF"> </td>
<td width="243" align="center" valign="middle"> <input type="submit" name="subm" value=" 提 交 " class="input" onClick="document.form1.Content.value = frames.message.document.body.innerHTML;"><input type="hidden" name="Content" value="">
<input type="reset" value=" 重 填 " class="input"></td>
<td width="122"> </td>
</tr>
</form>
</table></TD>
<TD width="59" bgcolor="#FFFFFF"> </TD>
</TR>
</TBODY>
</TABLE>
<!--留言程序结束-->
<script language="javascript" src="/bottom.js"></script>
</BODY></HTML>
因为
user
emil
你根本没有获取,所以总是没有到最后一行,结果就那样了在<%
user=request.Form("user")
emil=request.Form("emil")
'加上
user=request.form("user")
sex=request.Form("sex")
user=replace(user,"'","’")
emil=replace(emil,"'","’")
把
if rs.eof then
改成
if rs.eof and rs.bof then
sql="select user,sex,bt,img,qq,home,emil,ip,add,text from book"
改成
Sql = "Select * from book"
你的SQL语句少了一个time字段，加上就可以了，楼上的都在乱说，记得time字段要这样写[time],否则出错，因为你用了函数名做字段名