📄 default.asp
字号:
<%
// 安装必读
//医生工作室留言板终结版
//本程序由医生工作室http://www.51dr.com站长邵亮花费10小时写成
//全程序一共由default.asp跟数据文件23%drly.mdb,index.htm是防止主页不默认default.asp设置的
//主要功能有1、发表留言，2、删除留言3、管理留言、4、修改广告代码，顶部、左侧，下部广告代码等，5、可以贴图片或者媒体包括flash，mp3等文件，6、自动分页功能
//本软件为免费软件，大家可以自由拷贝修改，请保留版权信息，谢谢 2005－04－19 邵亮 http://www.51dr.com webmaster@51dr.com
%>
<%
//缓存的前面常量
cache="drly"
//常用常量
self=request.servervariables("url")
%>
<%
//连接数据库
dim dbpath
dbpath="23%drly.mdb"
set conn=server.createobject("adodb.connection")
connstr="driver={microsoft access driver (*.mdb)};dbq="&server.mappath(dbpath)
conn.open connstr
conn.execute("update config set num=num+1")
set rs1=conn.execute("select * from config")
//定义管理员用户名和密码
superadmin=rs1("superadmin")
superpass=rs1("superpass")
title=rs1("title")
adtop=rs1("top")
adleft=rs1("adleft")
copyright=rs1("copyright")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=title%>--Power by www.51dr.com</title>
<meta name="keyword" content="Dr,Money,Medical,在线医生,医生在线,在线医疗咨询,www.51dr.com,医生工作室">
<style>
<!--
.style1 {
font-size: x-large;
font-weight: bold;
color:#950B00
}
.styleip{color:red}
.err{color:red}
.err a:link{color:blue}
.err a:visited{color:silver}
.err a:hover{color:red;text-decoration:underline}
.td1 {background:#E5E5E5;}
.tddel{background:#E5E5E5; font-size:12px;color:white}
.tddel a:link{color:white;text-decoration:none}
.tddel a:visited{color:#ffffff;text-decoration:none}
.tddel a:hover{font-size:15pt;color:red;text-decoration:underline}
.td2{background:#ffffff}
.tdtop{background:#950B00;color:white;}
.tdtop a:link{color:white;text-decoration:none}
.tdtop a:visited{color:white;text-decoration:none}
.tdtop a:hover{color:white;text-decoration:underline}
.tdleft {background:#E5E5E5;border-right:1 dashed red}
.superadmin a:link{color:#E5E5E5}
.superadmin a:visited{color:#E5E5E5}
.superadmin a:hover{color:red;text-decoration:underline}
.hf{color:red;font-size:9pt}
.td3{background:#E5E5E5;font-size=12px}
.td3 a:link{color:black;text-decoration:none}
.td3 a:visited{color:black;text-decoration:none}
.td3 a:hover{color:red;text-decoration:underline}
.pagelink a:link{color:black}
.pagelink a:visited{color:black}
-->
</style>
</head>
<body>
<%
function adtop2()
%>
<table width=98% border=0 align=center border=0 cellpadding=0 cellspacing=0 class=tdtop> <tr><td class=superadmin>
<a href=<%=self%>>首页</a>
<%
//判断是否登陆
if request.cookies("admin")=superadmin and request.cookies("pass")=superpass then
response.write "Welcome SuperAdmin"
%>
<a href=<%=request.servervariables("url")%>?action=superadmin>超管</a>
<%
response.write "<a href="&request.servervariables("url")&"?action=exit>退出登陆</a>"
else
response.write "<a href="&request.servervariables("url")&"?action=login>登陆管理</a>"
end if
%>
<span id="liveclock" style"=width: 109px; height: 15px"></span><script language="JavaScript">
<!--
function number(index1){
var numberstring="一二三四五六七八九十";
if(index1 ==0) {document.write("十")}
if(index1 < 10){
document.write(numberstring.substring(0+(index1-1),index1))}
else if(index1 < 20 ){
document.write("十"+numberstring.substring(0+(index1-11),(index1-10)))}
else if(index1 < 30 ){
document.write("二十"+numberstring.substring(0+(index1-21),(index1-20)))}
else{
document.write("三十"+numberstring.substring(0+(index1-31),(index1-30)))}
}
var today1 = new Date()
var month = today1.getMonth()+1
var date = today1.getDate()
var day = today1.getDay()
document.write("公元二零零三年")
number(month)
document.write("月")
number(date)
document.write("日")
//-->
</script>
<SCRIPT language=javascript>
function www_helpor_net()
{
var Digital=new Date()
var hours=Digital.getHours()
var minutes=Digital.getMinutes()
var seconds=Digital.getSeconds()
if(minutes<=9)
minutes="0"+minutes
if(seconds<=9)
seconds="0"+seconds
myclock="现在时刻：<font size='5' face='Arial black'>"+hours+":"+minutes+":"+seconds+"</font>"
if(document.layers){document.layers.liveclock.document.write(myclock)
document.layers.liveclock.document.close()
}else if(document.all)
liveclock.innerHTML=myclock
setTimeout("www_helpor_net()",1000)
}
www_helpor_net();
//-->
</SCRIPT>
</table>
<%
end function
%>
<%
//定义错误处理
dim a
function err(a)
response.write "<div align=center class=err>Err,"&a&"<a href='javascript:history.back(-1)'>返回中</a></div>"
response.write "<meta http-equiv='refresh' content='2 url=javascript:history.back(-1)'>"
response.end
end function
function ok(a,b)
response.write "<div align=center class=err>"&a&"<a href="&b&">返回中</a></div>"
response.write "<meta http-equiv='refresh' content='2 url="&b&"'>"
response.end
end function
%>
<%
function htm(b)
b=server.htmlencode(b)
b = Replace(b, vbcrlf, "<br>")
b = replace(b, "[img]","<div align='center'><img src=""",1,-1,1)
b = replace(b, "[/img]",""" border=0></div>", 1, -1, 1)
b = replace(b, "[emb]","<div align='center'><embed src=""",1,-1,1)
b = replace(b, "[/emb]",""" border=0></embed></div>", 1, -1, 1)
htm=b
end function
//定义超管
function login()
%>
<div align=center class=style1>管理登陆<br>
<form action=<%=request.servervariables("url")%> action=post>
Name:<input name=admin>
Pass:<input name=pass type=password>
<br>
<input type=submit name=submitcookie value="登陆管理"> <input type=reset value="重新填写">
</form>
<%
response.end
end function
%>
<%
//回复留言
function reply()
%>
<div align=center class=style1>
回复留言<br>
<form action=<%=self%>>
<textarea name=hf rows=5 cols=50></textarea><br>
<input name=reply type=submit value="回复留言">
 
<input type=reset value="重写留言">
<%
response.end
end function%>
<%
function supermanage()
response.write adtop
call adtop2
%>
<table width="500" border="0" align="center">
<tr class=td1>
<th height="24" colspan="2" align="center" scope="col">超级管理</th>
</tr>
<tr>
<td width="95">管理员：</td>
<td width="395"><form name="form1" method="post" action=<%=self%>>
<input name="superadmin" type="text" id="superadmin" value="<%=superadmin%>">
</td>
</tr>
<tr>
<td>管理员密码：</td>
<td>
<input name="superpass" type="text" value="<%=superpass%>">
</td>
</tr>
<tr>
<td>网站标题:</td>
<td>
<input name="title" type="text" value="<%=title%>">
</td>
</tr>
<tr>
<td valign="top">页首代码：</td>
<td>
<textarea name="adtop" cols="50" rows="5" id="adtop"><%=adtop%></textarea>
</td>
</tr>
<tr>
<td valign="top">左侧代码：</td>
<td>
<textarea name="adleft" cols="50" rows="5" id="adleft"><%=adleft%></textarea>
</td>
</tr>
<tr>
<td valign="top">版权说明：</td>
<td>
<textarea name="copyright" cols="50" rows="5" id="copyright"><%=copyright%></textarea>
</td>
</tr>
<tr>
<td valign="top"> </td>
<td>
<input name="supermanagesubmit" type="submit" id="supermanagesubmit" value="提 交">
<input type="reset" name="Submit" value="重 置">
</form></td>
</tr>
</table>
<div align=center><font color=red>*</font>说明：以上均支持html代码</a>
<%
response.write copyright
response.end
end function
%>
<%
//登陆管理
if request("submitcookie")<>"" then
if request("admin")=superadmin and request("pass")=superpass then
response.cookies("admin")=request("admin")
response.cookies("pass")=request("pass")
ok "登陆成功",self
else
err("管理员用户或者密码错误")
end if
end if
%>
<%
if request("action")<>"" and request.cookies("admin")<>superadmin then
call login()
end if
//处理删除一个数据
if request("confirmdel")<>"" and session(cache&"id")<>"" then
if conn.execute("select * from content where id="&session(cache&"id")&"").eof then ok "未知错误",self
conn.execute("delete from content where id="&session(cache&"id")&"")
ok "删除成功",self
end if
//回复一个数据
if request("reply")<>"" then
if conn.execute("select * from content where id="&session(cache&"id")&"").eof then ok "未知错误",self
set rsreply=server.createobject("adodb.recordset")
rsreply.open "select * from content where id="&session(cache&"id"),conn,1,3
rsreply("hf")=htm(request("hf"))
rsreply.update
ok "回复成功",self
end if
//超级管理
if request("supermanagesubmit")<>"" then
superadmin1=request("superadmin")
superpass1=request("superpass")
title1=request("title")
adtop1=request("adtop")
adleft1=request("adleft")
copyright1=request("copyright")
set rsa=server.createobject("adodb.recordset")
rsa.open "select * from config",conn,1,3
rsa("superadmin")=superadmin1
rsa("superpass")=superpass1
rsa("title")=title1
rsa("top")=adtop1
rsa("adleft")=adleft1
rsa("copyright")=copyright1
rsa.update
ok "Ok",self
end if
//选择select
select case request("action")
case "viewip"
if conn.execute("select * from content where id="&request("id")&"").eof then ok "未知错误",self
set rsip=conn.execute("select * from content where id="&request("id")&"")
ok rsip("ip"),self
response.end
//退出登陆
case "exit"
response.cookies("admin")=""
response.cookies("pass")=""
ok "退出成功",self
case "login"
call login()
case "del"
if conn.execute("select * from content where id="&request("id")&"").eof then err("未知错误")
session(cache&"id")=request("id")
response.write "<form action="&self&"><input type=submit value='确定要删除吗，你将不能恢复' name=confirmdel><input type=submit value='取消' onclick='javascript:history.back(-1)'>"
response.end
case "reply"
session(cache&"id")=request("id")
call reply()
case "superadmin"
call supermanage()
end select
%>
</div>
<%
dim name,mail,nr
name=htm(request.form("name"))
mail=htm(request.form("mail"))
qq=htm(request.form("qq"))
nr=htm(request.form("nr"))
%>
<%
//判断内容
if request("submit")<>"" then
if name="" or mail="" or nr="" then
err("必填内容不能为空")
end if
if instr(mail,"@")=0 or instr(mail,".")=0 then
err("你的信箱格式不对吧")
end if
if qq<>"" then
if not isnumeric(qq) then
err("你的QQ号码格式不对")
end if
else
qq=" "
end if
//判断是否留言过，防止刷新
if session(cache&"visit")="3" then
err("你已经留言了啊")
else session(cache&"visit")="1"
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from Content",conn,1,3
rs.addnew
rs("name")=name
rs("mail")=mail
rs("ip")=request.servervariables("remote_addr")
rs("qq")=qq
rs("date")=now()
rs("nr")=nr
rs.update
ok "发表成功",request.servervariables("url")
end if
%>
<%=adtop%>
<%call adtop2()%>
<table width=750 align=center>
<tr><td width=200 word-break=break-all class=tdleft valign=top>
<a href=http://www.51dr.com><font color=red><div align=center>下载最新版本</div></font></a>
<%=adleft%>
</td>
<td valign=top>
<form name="form1" method="post" action="<%=request.servervariables("url")%>">
<table width="414" border="0" align="">
<tr bgcolor="">
<th height="30" colspan="2" scope="col"> <span class="style1">给我留言</span></th>
</tr>
<tr>
<td width="132" align="left">用户名：<span class=styleip>*</span></td>
<td width="297"><input type="text" name="name" style="border-left:none; border-right:none; border-top:none; border-bottom:
1 solid #000000"></td>
</tr>
<tr>
<td align="left">信 箱：<span class=styleip>*</span></td>
<td><input size=35 type="text" name="mail" style="border-left:none;border-top:none;border-right:none;border-bottom:1 solid black "></td>
</tr>
<tr>
<td align="left">QQ：</td>
<td><input size=20 type="text" name="qq" style="border-left:none;border-top:none;border-right:none;border-bottom:1 solid black "></td>
</tr>
<tr>
<td align="left" valign="top"><p>反馈内容<span class=styleip>*</span></p> </td>
<td> Your Ip Is <span class=styleip><%=request.servervariables("remote_addr")%> </span> </td>
</tr>
<tr align="left">
<td colspan="2"><textarea name="nr" cols="60" rows="10"></textarea> </td>
</tr>
<tr align="left">
<td colspan=""> </td>
<td><input type="submit" name="Submit" value="提 交">
<input type="reset" name="Submit2" value="重 置">
</td>
</tr>
</table>
</form>
</td>
</table>
<%
if conn.execute("select * from content order by id desc").eof then
response.write "<div align=center><font color=red>没有留言阿请添加</font></div>"
response.end
end if
set rs2=server.createobject("adodb.recordset")
rs2.open "select * from content order by id desc",conn,1,1
%>
<table width=90% border=0 align=center border=0 cellpadding=0 cellspacing=0> <tr><td class=superadmin>Total:<%=rs2.recordcount%>  Count：<%=rs1("num")%>
<%
dim onepage
onepage=20
rs2.pagesize=onepage
pages=rs2.pagecount
response.write "共"&pages&"页"
for i=1 to pages
response.write "『<span class=pagelink><a href="&self&"?page="&i&">"&i&"</a></span>』"
next
%>
<a href=<%=request.servervariables("url")%>?action=superadmin>超管</a>
<%
//判断是否登陆
if request.cookies("admin")=superadmin and request.cookies("pass")=superpass then
response.write "Welcome SuperAdmin<a href="&request.servervariables("url")&"?action=exit>退出登陆</a>"
else
response.write "<a href="&request.servervariables("url")&"?action=login>登陆管理</a>"
end if
%>
<%
page=request("page")-1
if page<0 then page=0
pump=page*onepage
rs2.move pump
for i=1 to onepage
if rs2.eof then exit for
%>
<tr><td class=td1> 网名：<a title="查看的<%=rs2("name")%> 的IP地址" href=<%=request.servervariables("url")%>?action=viewip&id=<%=rs2("id")%> ><%=rs2("name")%></a>时间:<%=rs2("date")%>
QQ:<%=rs2("qq")%> Email:<a href=mailto:<%=rs2("mail")%> ><%=rs2("mail")%></a>
<td align=right class=tddel><a href=<%=request.servervariables("url")%>?action=del&id=<%=rs2("id")%> >删除</a>/<a href=<%=request.servervariables("url")%>?action=reply&id=<%=rs2("id")%> >回复</a>
<tr><td colspan=2 class=td2><%=rs2("nr")%>
<%
if rs2("hf")<>"" then
response.write "<br> <span class=hf>回复:"&rs2("hf")
end if
%>
<%
rs2.movenext
next
%>
</table>
<%=copyright%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -