📄 userdataupto150.asp

📁 聊天室源码呵呵你好用~~~~~~2.0版本
💻 ASP
字号:
<%@ LANGUAGE=VBScript%>
<%Server.ScriptTimeout=600
Response.Expires=0
Set fs = CreateObject ("Scripting.FileSystemObject")
udfile150=server.mappath("userdata_v150.asp")
if fs.FileExists(udfile150)=True then
 Response.Write "<title>出错提示 - " & Application("a_c_chatroom_name") & "</title>"
 Response.write "<body bgcolor=FFCC99><p>&nbsp;</p><p align='center'>出错提示：系统数据已经升级过了，不能重复操作。</p>"
 Response.write "<p align='center'><a href='javascript:window.close();'>关闭窗口</a></p></body>"
 Response.end
end if
udfile=server.mappath("userdata.asp")
if fs.FileExists(udfile)=False then
 Response.Write "<title>出错提示 - " & Application("a_c_chatroom_name") & "</title>"
 Response.write "<body bgcolor=FFCC99><p>&nbsp;</p><p align='center'>出错提示：找不到旧版本的用户数据。</p>"
 Response.write "<p align='center'><a href='javascript:window.close();'>关闭窗口</a></p></body>"
 Response.end
end if
Set thisfile = fs.OpenTextFile(udfile,1,False)
dim ud()
countud=0
do while not thisfile.AtEndOfStream
 thisline = thisfile.readline
 Redim preserve ud(countud)
 ud(countud) = thisline
 countud = countud + 1
loop
thisfile.Close
Set outfile = fs.CreateTextFile(udfile150)
outfile.WriteLine "<" & "%Response.End%" & ">"
outfile.WriteLine "红蜻蜓聊天室1.5版"
outfile.WriteLine "福建省安溪县稻香工作室"
outfile.WriteLine "技术支持：c_hegu@126.com"
outfile.WriteLine "发布时间：1999年10月25日"
for i=5 to countud - 1 step 5
 outfile.WriteLine ud(i) '用户名 i
 outfile.WriteLine ud(i+1) '密码 i+1
 outfile.WriteLine "1" '等级 i+2
 outfile.WriteLine ud(i+2) '来访次数 i+3
 outfile.WriteLine ud(i+2) '经验值 i+4
 outfile.WriteLine ud(i+3) '首次时间 i+5
 outfile.WriteLine ud(i+4) '末次时间 i+6
 outfile.WriteLine "0.0.0.0" 'IP i+7
next
outfile.WriteLine "s_u_p_e_r_"
outfile.WriteLine "1234567890"
outfile.WriteLine "10"
outfile.WriteLine "1"
outfile.WriteLine "0"
outfile.WriteLine "1999-08-25 00:00:00"
outfile.WriteLine "1999-10-25 00:00:00"
outfile.WriteLine "127.0.0.1"
outfile.Close
Response.Write "<title>已将用户资料升级至1.5版 - " & Application("a_c_chatroom_name") & "</title>"
Response.write "<body bgcolor=FFCC99><p>&nbsp;</p><p align='center'>恭喜，系统已经顺利升级为1.5版。</p>"
Response.write "<p align='center'>现在请用用户名：s_u_p_e_r_密码：1234567890</p>"
Response.write "<p align='center'>登录进入聊天室，然后即可对用户进行管理，并</p>"
Response.write "<p align='center'>可以赋予其他用户管理权限，或对用户进行升级</p>"
Response.write "<p align='center'>你可以自己建一个新的用户名，然后赋予权限10</p>"
Response.write "<p align='center'>做完这些工作后，用自杀功能删除s_u_p_e_r_用</p>"
Response.write "<p align='center'>户，或更改用户密码，以免留下漏洞。　　　　</p>"
Response.write "<p align='center'><a href='javascript:window.close();'>关闭窗口</a></p></body>"
Response.end%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -