伟大的asp改错啊

shirlybaby 2009-06-22 10:10:54
<<login.asp>>

<% @ language="VBScript" %>

<% Response.Buffer=True %>

<html>

<head>

<title>家庭财务管理系统</title>

<style type="text/css">

.x{font-family:"宋体";color:black;font-size:24pt}

</style>

<SCRIPT LANGUAGE="VBScript">

Sub btDel()

Dim cn1,rs1,sql1

Set cn1=Server.CreateObject("ADDOB.Connection")

Set rs1=Server.CreateObject("ADDOB.Recordset")

cn1.ConnectionString="file name=d:\www\cwgllinks.udl"

cn1.Open

rs1.LockType=adLockOptimistic

sql1="SELECT * FROM sz "

rs1.Open sql1,cn1

rs1.Delete

End Sub

</SCRIPT>

</head>

<body>

<form name="Formle" METHOD = "post" ACTION="loginOK.asp">

<center>

<div class="x">家庭财务管理系统</div><hr><p>

<P>登陆名:<input type="text" name="txtDLM"></p>

<p>密  码:<input type="password" name="pasKL"></p>

<p><input type="submit"name="btnOK" VALUE="增加"> 

<input type="button" name="btnDel" VALUE="删除" ONCLICK="btDel()"> 

<input type="reset" name="btnESC" VALUE="重写"></p>

</center>

</form>

</body>

</html>




<<loginOK.asp>>

<% @ language="VBScript" %>

<% dlm=Trim(Request.Form("txtDLM"))

kl=Trim(Request.Form("pasKL"))

If dlm=" "and kl=" " Then

Response.Redirect "login.asp"

End If

%>

<html>

<head>

<title>家庭财务管理系统</title>

</head>

<body>

<!--#include virtual="adovbs.inc"-->

<%

Dim cn1,rs1,sql1

Set cn1=Server.CreateObject("ADDOB.Connection")

Set rs1=Server.CreateObject("ADDOB.Connection")

cn1.ConnectionString="file name=d:\www\cwgllinks.udl"

sql1="SELECT * FROM cwgluser WHERE userdlm='"&dlm&"'anduserkl='"&kl&"'"

cn1.Open

rs1.Open sql1,cn1

If rs1.EOP Then

rs1.close

cn1.close

Set cn1=Nothing

Response.Redirect "login.asp"

Else

rs1.close

cn1.close

Set cn1=Nothing

Response.Conkies("Userdlm")=dlm

Response.Redirect "menu.htm"

End If

%>

</body>

</html>





<<menu.htm>>


<html>

<head>

<title>家庭财务管理系统</title>

<style type="text/css">

.x{font-family:"宋体";color:black;font-size:24pt}

.y{font-family:"宋体";color:black;font-size:18pt}

</style>

</head>

<body>

<center>

<P><div class="x">家庭财务管理系统</div></p><hr>

<P><div class="y"><a href="cydengji.htm"> 1 家庭成员登记</a></div></p>

<P><div class="y"><a href="weihu.htm"> 2   数据维护  </a></div></p>

<P><div class="y"><a href="shouzhi.htm"> 3   收支记账  </a></div></p>

<P><div class="y"><a href="chaxun.htm"> 4    查  询   </a></div></p>

</center>

</body>

</html>

<<cydengji.htm>>

<html>

<head>

<title>家庭财务管理系统</title>

<style type="text/css">

.x{font-family:"宋体";color:black;font-size:24pt}

</style>

</head>

<body>

<form name="form1" methed="post" action="cydengji.asp">

<center>

<P><div class="x">成员登记</div></p><hr>

<P>姓名：<input type="text" name="cyxm"></p>

<P>性别：<input type="text" name="xb"></p>

<P>年龄：<input type="text" name="nl"></p>

<P>职业：<input type="text" name="zy"></p>

<p><input type="submit" name="btnOK" value="提交">  

<input type="reset" name="btnESC" value="重写"></p>

</form>

</body>

</html>



<<cydengji.asp>>

<% @ language="VBScript" %>

<!--#include virtual="adovbs.inc"-->

<%

Dim cn1,rs1,sql1

Set cn1=Server.CreateObject("ADDOB.Connection")

Set rs1=Server.CreateObject("ADDOB.Recordset")

cn1.ConnectionString="file name=d:\www\cwgllinks.udl"

cn1.Open

rs1.LockType=adLockOptimistic

xm1=Request.Form("cyxm")

xb1=Request.Form("xb")

nl1=Request.Form("nl")

zy1=Request.Form("zy")

Response.Write " 成员登记中…… "

sql="SELECT * FROM chengyuan"

rs1.Open sql1,cn1

rs1.AddNew

rs1("xm")=xm1

rs1("xb")=xb1

rs1("nl")=nl1

rs1("zy")=zy1

Respones.Write "—登记成功—"

rs1.Update

cn1.Close

Set cn1=Nothing

%>

<<weihu.htm>>

<html>

<head>

<title>家庭财务管理系统</title>

<style type="text/css">

.x{font-family:"宋体";color:black;font-size:24pt}

</style>

</head>

<body>

<form name="form1" methed="post" action="weihu.asp">

<center>

<P><div class="x">数据维护</div></p><hr>

<P>姓名：<input type="text" name="cyxm"></p>

<P>性别：<input type="text" name="cyxb"></p>

<P>年龄：<input type="text" name="cynl"></p>

<P>职业：<input type="text" name="cyzy"></p>

<p><input type="radio" name="optGN" value="1">修改纪录  

<input type="radio" name="optGN" value="2">删除纪录  </p>

<p><input type="submit" name="btnOK" value="提交">  

<input type="reset" name="btnESC" value="重写"></p>

</form>

</body>

</html>

</body>
</html>
...全文
24 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
erdong988 2009-06-22
  • 打赏
  • 举报
 回复
什么意思？什么错误提示啊？
login.asp里面的删除按钮到底是干什么用的？删除写成函数，这样的函数应该是在客户端运行吧
艾派德迷你2 2009-06-22
  • 打赏
  • 举报
 回复
不是一般的恐怖咯..
看的很晕...
layers2323 2009-06-22
  • 打赏
  • 举报
 回复
lz好恐怖。
苏蟹阁 2009-06-22
  • 打赏
  • 举报
 回复
错误不写.怎么改错呀...
oulin1983 2009-06-22
  • 打赏
  • 举报
 回复
楼主，请把错误贴出来
asp婚纱摄影网站整站源码（开源）
哎 刚毕业的时候做的一个网站，新手可以下载看看，就当学习 改错，找出的漏洞 不足越多，你就越厉害啦。 里面有完整的用户管理系统（不知道算是系统吗！！），图片上传，防SQL注入，验证码，防恶意代码的插入，分页...
生成ASCII字符插件 for 6.0
同风改错版 font.asp放在论坛目录下就可以了！ 美中不足的是不能生成中文字符，只能生成英文和数字的，不过这样也不错了，用来灌水蛮好！ 帖一个看看： _____ ___ _____ __ _ _____ | ___...
电子商务系统设计与管理.doc
） A Unix B Windows XP C Linux D Windows Server 2003 6、世界上最流行的Web服务器是（ ） A Tomcat B Apache httpd C IIS D Bluer web server 7、使用的最广泛的ASP服务器是（ ） A IPlanet B IIS C Websphere D ...
Asp 正则表达式替换方法anReg()
'正则替换 ' @param strHTML 源字符串 ' @param strAny Pattern正则表达式 ' @param strResult 替换为，支持$1 ' @return string Function anReg(strHTML,strAny,strResult) ... Dim objRegExp, Match,...
ASP如何清除页面缓存。Cookies 集合,Buffer,Expires,ExpiresAbsolute,CacheControl
当使用ASP进行Web编程时，你发现确实修改了程序代码，确认没有改错，却发现输出的Webyemi8an没有变化，这就是服务端将此ASP文件加入了页面缓存。  清楚页面缓存有一下几种方法；  1.在ASP页面首部加入一下代码：...
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章