'修改发贴用户
'sql="select * from content where id=803"
'openrs(sql)
'rs("poster")="ada"
'rs.update
'rs.close
'修改回复贴用户
'i=0
'sql="select * from content where parent=803"
'openrs(sql)
'for i=1 to rs.recordcount
'response.write "<a target=_blank href='context.asp?id="&rs("id")&"'">"& rs("title") &"</a>" rs("poster") & rs("id")
'rs("poster")="ada"
'rs.update
'rs.movenext
'next
'rs.close
'点击最高贴前20
i=10
j=1
sql="select top 10 * from content order by clicknum desc"
openrs(sql)
for j=1 to i
response.write "<a target=_blank href='context.asp?id="&rs("id")&"'>"& rs("title")&"</a>"
response.write rs("clicknum") &"<br>"
rs.movenext
next
rs.close
'初始化用户密码
'sql="select * from users where username='heady'"
'openrs(sql)
'rs("userpass")="49ba59abbe56e057"
'rs.update
'rs.close
'修正访问统计
'sql="delete * from visitinfo where count=1"
'openrs(sql)
'rs("count")=201
'rs.update
'rs.close
'更改用户组
'sql="select * from users where username='henry'"
'openrs(sql)
'rs("group")="member"
'rs.update
'rs.close
'获取服务器时间
'response.write(now())
asp+sql 数据库开发 开发网站精典
需积分: 0 196 浏览量
2008-11-05
15:46:56
上传
评论
收藏 101KB RAR 举报
lbbs13-6316.rar （39个子文件） 
lbbs13 乐学迷你BBS(lbbs) v1.3 
admin_art.asp 1KB global.asa 372B post2.asp 7KB Font.js 549B about.htm 3KB include functions.asp 9KB class.asp 200B Font.js 549B checkcode.asp 6KB checkuser.asp 908B ubbcode.asp 7KB md5.asp 11KB head.asp 546B clsUp.asp 9KB conn.asp 1KB login.asp 2KB search.asp 9KB members.asp 3KB
ExecuteTxt.txt 1KB edit.js 2KB aspcheck.asp 31KB context_.asp 10KB memberinfo.asp 5KB admin_user.asp 710B images 
email.gif 1000B red.gif 77B rar.gif 244B T_bg.gif 269B swf.gif 277B css.css 859B logo.gif 2KB green.gif 77B admin.asp 1KB tongji.asp 3KB data data.asp 360KB register.asp 6KB context.asp 10KB post.asp 5KB index.asp 10KB
评论0