设为首页收藏本站

新微赢技术网

 找回密码
 注册
搜索
热搜: 回贴
查看: 58|回复: 6
打印 上一主题 下一主题

[求助]写不进数据库

[复制链接]
跳转到指定楼层
1#
发表于 2010-1-17 08:49:48 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
<!--#include file="dbpath.asp"-->
<%
user=request.form("user")
pwd1=request.form("pwd1")
pwd2=request.form("pwd2")
email=request.form("email")
web=request.form("web")
url=request.form("url")
gbname=request.form("gbname")
'**********检查是否填写了所有项,如果不是侧自动返回申请页面
if user="" or pwd1="" or pwd2="" or email="" or web="" or url="" or gbname="" then
errmsg=errmsg & "△ 请填写所有内容!\n"
end if
if pwd1<>pwd2 then
errmsg=errmsg & "△ 两次输入的密码不相同!\n"
end if
'**********检查用户名.如果有重复用户名侧自动返回申请页面
dim rsc,errmsg
Set rsc = Conn.Execute("select * from user where user = '" & user & "'")
if not rsc.eof then errmsg=errmsg & "△ 此用户名已被注册,请改名!\n"

if errmsg<>"" then
Conn.Close
Set conn = nothing
Set rsc = nothing
response.write("<script>alert('" & errmsg & "');history.go(-1)</script>")
response.end
end if
'**********检查结束**********
set rs=server.createobject("adodb.recordset")
sql="select * from user where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("user")=user
rs("pwd")=pwd1
rs("email")=email
rs("web")=web
rs("url")=url
rs("gbname")=gbname
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
6#
发表于 2010-1-17 08:50:07 | 只看该作者
hangxj,,你QQ号是多少,,我想加你
回复 支持 反对

使用道具 举报

5#
发表于 2010-1-17 08:50:03 | 只看该作者
你太强了
回复 支持 反对

使用道具 举报

4#
发表于 2010-1-17 08:49:59 | 只看该作者
提示已经注册成功但数据中没有写进
回复 支持 反对

使用道具 举报

3#
发表于 2010-1-17 08:49:55 | 只看该作者
写不进去有很多可能,你不告诉我们是那种可能我们怎么帮你

比如说提示已经注册成功但数据中没有写进,或者其他的~~~???
回复 支持 反对

使用道具 举报

2#
发表于 2010-1-17 08:49:51 | 只看该作者
把用户写不进去啊,,大哥们,,帮个忙
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

申请友链|小黑屋|最新主题|手机版|新微赢技术网 ( 苏ICP备08020429号 )  

GMT+8, 2024-11-20 13:40 , Processed in 0.116907 second(s), 9 queries , Gzip On, Memcache On.

Powered by xuexi

© 2001-2013 HaiAn.Com.Cn Inc. 寰耽

快速回复 返回顶部 返回列表