| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 508 人关注过本帖
标题:关于asp网页连接数据库的编程问题,求帮助!
只看楼主 加入收藏
梦相随
Rank: 1
来 自:安徽
等 级:新手上路
帖 子:2
专家分:0
注 册:2011-7-26
收藏
 问题点数:0 回复次数:0 
关于asp网页连接数据库的编程问题,求帮助!
我编写了一个asp网页,想完成会员注册,在add_message.asp网页中提交表单,通过post
向add_message_pass.asp传递数据,再通过add_message_pass.asp网页向ACCESS数据库添加数据。可是在完成网页间跳转的时候总是提示:糟糕!此链接好像已损坏。这是什么原因啊?附asp源码:
-----------------------------------------add_message.as----------------------------------------

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/config.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" " http://www.
<html xmlns=" http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="css/index.css" type="text/css" rel="stylesheet" />
<title>添加留言-Statistics留言板</title>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
<script language="javascript" type="text/javascript">
 function cheackinput(){
if (form.title.value.replace(/ /g,"")==""){
alert("留言标题内容不能为空,请认真填写");
form.title.focus();
return false;
}

if (form.username.value.replace(/ /g,"")==""){
alert("留言者姓名不能为空,请重新填写");
form.username.focus();
return false;
}
else if (form.username.value.replace(/ /g,"").length<2){
alert("姓名字数太短了,请填写真实姓名");
form.username.focus();
return false;
}
else if (form.username.value.replace(/ /g,"").length>10){
alert("姓名字数太长了,请填写真实姓名");
form.username.focus();
return false;
}
if (form.email.value.replace(/ /g,"")==""){
alert("电子邮件地址不能为空");
form.email.focus();
return false;
}
if (form.email.value.replace(/ /g,"") != ""){
if((!/^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$/.test(form.email.value.replace(/ /g,"")))){
alert("电子邮件格式不符合标准");
form.email.focus();
return false;
}
}
if (form.qq.value.replace(/ /g,"")==""){
alert("联系QQ不能为空");
form.qq.focus();
return false;
}
if (isNaN(form.qq.value)){
alert("QQ号码必须为数字");
form.qq.focus();
return false;
}
if (form.qq.value.replace(/ /g,"").length != "" & form.qq.value.replace(/ /g,"").length<5){
alert("QQ号码不符合标准");
form.qq.focus();
return false;
}
if (form.qq.value.replace(/ /g,"").length>12){
alert("这么长的QQ号码不符合标准");
form.qq.focus();
return false;
}
if (form.content.value.replace(/ /g,"")==""){
alert("留言内容不能为空");
form.content.focus();
return false;
}
else if (form.content.value.replace(/ /g,"").length < 8){
alert("留言内容太少了,有刷屏的嫌疑!请重新输入你的留言。");
form.content.focus();
return false;
}
if (form.VerifyCode.value.replace(/ /g,"")==""){
alert("验证码不能为空");
form.VerifyCode.focus();
return false;
}
 }
</script>
</head>
<body>
<div align="center">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase=" http://download.,0,28,0" width="900" height="190">
  <param name="movie" value="../images/head.swf" />
  <param name="quality" value="high" />
  <param name="wmode" value="opaque" />
<embed src="../images/head.swf" quality="high" wmode="opaque" pluginspage=" http://www. type="application/x-shockwave-flash" width="900" height="190"></embed>
</object>
</div>
<div class="header_menu">
      <ul>
        <li><a href="/index.asp" target="_self">首页</a></li>
        <li><a href="/Message/index.asp" target="_self">留言板</a></li>
        <li><a href="/Message/add_message.asp" target="_self">发表留言</a></li>
        <li><a href="/Message/system/" target="_blank">留言管理</a></li>
        <li><a href="/Message/about.asp" target="_self">关于我们</a></li>
      </ul>
  <div class="clear"></div>
    </div>
<div id="contain">
  <div id="box">
    <div class="box_box">
      <div class="box_book">
        <p>发表留言</p>
<form action="add_message_passed.asp" method="post" name="form" onSubmit="return cheackinput();">
        <table cellpadding="0" cellspacing="8" border="0" width="580" align="center">
          <tr>
            <td width="65"><div align="right">留言标题:</div></td>
            <td width="491"><input name="title" type="text" class="b_p" /> <input name="gbook_sh" value="<%=gbook_sh%>" type="hidden" /> </td>
          </tr>
          <tr>
            <td><div align="right">姓名:</div></td>
            <td><input name="username" type="text" class="b_p" /> *</td>
          </tr>
          <tr>
            <td><div align="right">E_mail:</div></td>
            <td><input name="email" type="text" class="b_p" />
            * 是否显示
              <input name="yc_email" type="checkbox" id="yc_email" value="0" /></td>
          </tr>
  <tr>
            <td><div align="right">联系电话:</div></td>
            <td><input name="tel" type="text" class="b_p" />
            [<span class="style1">为用户保密,其他用户看不到该信息</span>]</td>
          </tr>
          <tr>
            <td><div align="right">联系QQ:</div></td>
            <td><input name="qq" type="text" class="b_p" />
            * 是否显示
              <input type="checkbox" name="yc_qq" id="yc_qq" value="0" /></td>
          </tr>
          <tr>
            <td><div align="right">联系地址:</div></td>
            <td><input name="address" type="text" class="b_p" /></td>
          </tr>
          <tr>
            <td><div align="right">留言内容:</div></td>
            <td><textarea name="content" cols="60" rows="7"></textarea> *</td>
          </tr>
  <tr>
            <td><div align="right">验证码:</div></td>
            <td><input name="VerifyCode" type="text"   size="7" /> <img src="validatecode.asp?" onClick="this.src+=Math.random()" alt="图片看不清?点击重新得到验证码" style="cursor:hand;" height="20" /></td>
          </tr>
  <tr>
            <td>&nbsp;</td>
            <td><input type="submit" name="Submit" value="提交" /> <input type="reset" name="Submit2" value="重置" /></td>
          </tr>
        </table>
</form>
<div class="line"></div>
<h5>发表留言须知</h5>
<div class="book_w">
  <ul>
    <li>1、严禁对个人、实体、民族、国家等进行漫骂、污蔑与诽谤</li>
<li>2、网友应遵守我们互联网的相关法规</li>
<li>3、网友应对所发布的信息承担全部责任</li>
<li>4、网站管理人员有权保留或删除留言中的信息内容</li>
<li>5、发表留言即表明已阅读并接受以上条款</li>
  </ul>
</div>
      </div>
    </div>
    <div class="line"></div>
  </div>
  <div id="xycopy">
    <div id="xycopy">
    <div class="xycopy_list">
      <div class="footnav">
        <a href="/about.asp">站长简介</a><div class="footdc">
版权所有:安徽农业大学 <a href=" http://www.ahau. http://www.ahau.
      </div>
      <div class="footdc">        如果您对我们的服务有任何意见或建议,请E_mail至mengjie_li@,
      </div>
      <div align="center">
        经济统计留言板 </div>
      </div>
  </div>
</div>
  </div>
</div>
</body>
</html>


---------------------------------------------add_message_pass.asp----------------------------

<!--#include file="conn.asp"-->
<!--#include file="inc/function.asp"-->
<%
dim ip,rs,sql,title,username,email,tel,qq,address,content,yc_qq,yc_email,VerifyCode
set rs=server.createobject("adodb.recordset")
sql="select * from book"
rs.open sql,conn,1,3
title=Checkxss(trim(request.form("title")))
review=trim(request.form("review"))
username=Checkxss(trim(request.form("username")))
email=trim(request.form("email"))
tel=trim(request.form("tel"))
qq=trim(request.form("qq"))
yc_email=request.form("yc_email")
yc_qq=request.form("yc_qq")
address=Checkxss(trim(request.form("address")))
content=Checkxss(trim(request.form("content")))
VerifyCode=request.form("VerifyCode")
ip=request.servervariables("remote_addr")
if VerifyCode="" then
response.Write("<script language=javascript>alert('验证码不能为空!');history.go(-1)</script>")
response.end
end if
if cstr(Session("firstecode"))<>cstr(Request.Form("VerifyCode")) then
response.Write("<script language=javascript>alert('验证码错误!');history.go(-1)</script>")
response.End
end if
rs.addnew
rs("title")=title
rs("username")=username
rs("email")=email
rs("tel")=tel
rs("qq")=qq
rs("yc_qq")=yc_qq
rs("yc_email")=yc_email
rs("address")=address
rs("content")=content
rs("add_ip")=ip
rs("content")=content
rs.update
rs.close
set rs=nothing
if content=0 then
Response.Write "<script>alert('恭喜你,留言提交成功!');window.location.href='index.asp';</script>"
else
Response.Write "<script>alert('恭喜你,留言提交成功!但需要经过管理员审核过才能显示!');window.location.href='index.asp';</script>"
end if
%>
神一般的人物帮我看看,此外经测试,网页连接数据库的文件conn.asp配置正确,数据库数据可以读取。
搜索更多相关主题的帖子: include asp源码 PUBLIC 数据库 会员 
2011-08-06 11:04
快速回复:关于asp网页连接数据库的编程问题,求帮助!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019071 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved