📄 txl_index.asp
字号:
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Admin_STYLE.CSS" rel="stylesheet" type="text/css">
<title>通讯录</title>
</head>
<div align=center>
<body class="bgcolor">
<table border="0" width="500" cellspacing="0" cellpadding="0" class="border">
<tr><td class="title" height="25" align="center"><b>通讯录</b>--<a href='javascript:history.go(-1)'>返回</a></td></tr>
<tr><td class="tdbg" height="25" align=center>
<table border="0" width="460" cellspacing="0" cellpadding="0">
<tr><td colspan="4"><hr></td></tr>
<tr>
<td class="tdbg" width="90">姓名:</td>
<td class="tdbg" width="150"><b><%=rs("xingming")%></b></td>
<td class="tdbg" width="90">QQ号:</td>
<td class="tdbg" width="150"><%=rs("QQ")%></td>
</tr>
<tr>
<td class="tdbg" width="90">单位:</td>
<td class="tdbg" width="150"><%=rs("danwei")%></td>
<td class="tdbg" width="90">部门:</td>
<td class="tdbg" width="150"><%=rs("bumen")%></td>
</tr>
<tr>
<td class="tdbg" width="90">单位电话:</td>
<td class="tdbg" width="150"><%=rs("dianhua")%></td>
<td class="tdbg" width="90">手机:</td>
<td class="tdbg" width="150"><%=rs("shouji")%></td>
</tr>
<tr>
<td class="tdbg" width="90">电子邮件:</td>
<td class="tdbg" width="150"><%=rs("email")%></td>
<td class="tdbg" width="90">分机:</td>
<td class="tdbg" width="150"><%=rs("chuanzhen")%></td>
</tr>
<tr>
<td class="tdbg" width="90">邮政地址:</td>
<td class="tdbg" width="150"><%=rs("dizhi")%></td>
<td class="tdbg" width="90">传真:</td>
<td class="tdbg" width="150"><%=rs("fenji")%></td>
</tr>
<tr>
<td class="tdbg" width="90">邮政编码:</td>
<td class="tdbg" colspan="3"><%=rs("youzheng")%></td>
</tr>
<tr>
<td class="tdbg" width="90" height="40">备注:</td>
<td class="tdbg" colspan="3"><%=rs("beizhu")%></td>
</tr>
<tr><td colspan="4"><hr></td></tr>
</table>
</td></tr>
</table>
</body></div></html>
<%
rs.close
set rs=nothing
end sub
'分类管理主页面
sub mainlei()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Admin_STYLE.CSS" rel="stylesheet" type="text/css">
<title>部门分类管理</title>
</head>
<div align=center>
<body class="bgcolor">
<table border="0" width="500" cellspacing="0" cellpadding="0" class="border">
<tr><td class="title" height="24"><b>部门分类管理</b> <a href=txl_index.asp>返回</a></td></tr>
<form action=txl_index.asp?action=addlei method=post><tr><td class="tdbg"><b>添加分类 </b> 分类名称:
<input type=text maxlength=5 size=10 name=name><input type=submit value=添加></td></tr></form>
<%dim rs
set rs=conn.execute("select * from bm_lei order by id desc")
if not rs.eof then
do while not rs.eof
%>
<form action=txl_index.asp?action=addlei&jplei=<%=rs("id")%> method=post>
<tr><td class=tdbg><b>修改分类</b>
分类名称:<input type=text value=<%=rs("name")%> maxlength=5 size=10 name=name><input type=submit value=修改><a href=txl_index.asp?action=dellei&jplei=<%=rs("id")%>>删除</a></td></tr></form>
<%
rs.movenext
loop
else
response.write "<tr><td class=tdbg>没有任何分类,请添加分类.</td></tr>"
end if
rs.close
set rs=nothing%>
</table>
</body></div></html>
<%end sub
'显示所有用户主页面
sub main()%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Admin_STYLE.CSS" rel="stylesheet" type="text/css">
<title>通讯录</title>
</head>
<div align=center>
<body class="bgcolor">
<table border="0" width="500" cellspacing="0" cellpadding="0" class="border">
<tr><td class="title" height="25" align="center"><b>通讯录</b>--<%if session("login")=false then%><a href=?Action=login>管理登陆</a><%else%><a href=?Action=loginout>退出登陆</a><%end if%>
<%if session("login")=true then%>--<a href=?action=adduser>添加用户</a>--<a href="txl_index.asp?action=mainlei">部门分类管理</a><%end if%></td></tr>
<%
dim rs
dim filename,totalnumber,maxperpage
set rs=conn.execute("select * from [bm_user] order by adddate desc")
if not rs.eof then
maxperpage=10
filename="txl_index.asp?action="
totalnumber=rs.recordcount
do while not rs.eof
%>
<tr><td class="tdbg" height="25" align=center>
<table border="0" width="460" cellspacing="0" cellpadding="0">
<tr><td colspan="4"><hr></td></tr>
<tr>
<td class="tdbg" width="90">姓名:</td>
<td class="tdbg" width="150"><b><%=rs("xingming")%></b></td>
<td class="tdbg" width="90">QQ号:</td>
<td class="tdbg" width="150"><%=rs("QQ")%></td>
</tr>
<tr>
<td class="tdbg" width="90">单位:</td>
<td class="tdbg" width="150"><%=rs("danwei")%></td>
<td class="tdbg" width="90">部门:</td>
<td class="tdbg" width="150"><%=rs("bumen")%></td>
</tr>
<tr>
<td class="tdbg" width="90">单位电话:</td>
<td class="tdbg" width="150"><%=rs("dianhua")%></td>
<td class="tdbg" width="90">手机:</td>
<td class="tdbg" width="150"><%=rs("shouji")%></td>
</tr>
<tr>
<td class="tdbg" width="90"></td>
<td class="tdbg" width="150"></td>
<td class="tdbg" width="90"><%if session("login")=true then%><a href=?action=deluser&userid=<%=rs("id")%>>删除用户</a><%end if%></td>
<td class="tdbg" width="150"><a href="txl_index.asp?action=showuser&userid=<%=rs("id")%>">详细信息</a></td>
</tr>
<tr><td colspan="4"><hr></td></tr>
</table>
</td></tr>
<%
rs.movenext
loop
%>
<tr><td class="title" height="25"><%call showpage(totalnumber,maxperpage,filename)%></td></tr>
<%
else
response.write"<tr><td class=tdbg height=25>没有任何人物</td></tr>"
end if
rs.close
set rs=nothing
%>
</table>
</body></div></html>
<%end sub
'以下为function整体封装函数,请勿改动.
'**************************************************
'过程名：WriteSuccessMsg
'作 用：显示成功提示信息
'参 数：无
'**************************************************
sub WriteSuccessMsg(SuccessMsg)
dim strSuccess
dim href
if session("href")="" then
href="javascript:history.go(-1)"
else
href=session("href")
end if
session("href")=""
strSuccess=strSuccess & "<html><head><title>成功信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbcrlf
strSuccess=strSuccess & "<link href='Admin_STYLE.CSS' rel='stylesheet' type='text/css'></head><body class='bgcolor'><br><br>" & vbcrlf
strSuccess=strSuccess & "<table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center>" & vbcrlf
strSuccess=strSuccess & " <tr align='center'><td height='22' class='title'><strong>恭喜你！</strong></td></tr>" & vbcrlf
strSuccess=strSuccess & " <tr><td height='100' valign='top' class='tdbg'><br>" & SuccessMsg &"</td></tr>" & vbcrlf
strSuccess=strSuccess & " <tr align='center'><td class='tdbg'> <a href='"&href&"'><< 返回上一页</a></td></tr>" & vbcrlf
strSuccess=strSuccess & "</table>" & vbcrlf
strSuccess=strSuccess & "</body></html>" & vbcrlf
response.write strSuccess
end sub
'**************************************************
'过程名：WriteErrMsg
'作 用：显示错误提示信息
'参 数：无
'**************************************************
sub WriteErrMsg()
dim strErr
if session("errmsg")<>"" then
errmsg=session("errmsg")
end if
strErr=strErr & "<html><head><title>错误信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbcrlf
strErr=strErr & "<link href='Admin_STYLE.CSS' rel='stylesheet' type='text/css'></head><body class='bgcolor'><br><br>" & vbcrlf
strErr=strErr & "<table cellpadding=2 cellspacing=1 border=0 width=767 class='border' align=center>" & vbcrlf
strErr=strErr & " <tr align='center' class='title'><td height='22'><strong>错误信息</strong></td></tr>" & vbcrlf
strErr=strErr & " <tr class='tdbg'><td height='100' valign='top' class='tdbg'><b>产生错误的可能原因：</b>" & errmsg & "</td></tr>" & vbcrlf
strErr=strErr & " <tr align='center'><td class='tdbg'><a href='javascript:history.go(-1)'><< 返回上一页</a></td></tr>" & vbcrlf
strErr=strErr & "</table>" & vbcrlf
strErr=strErr & "</body></html>" & vbcrlf
session("errmsg")=""
response.write strErr
end sub
'**************************************************
'函数名：ReplaceBadChar
'作 用：过滤非法的SQL字符
'参 数：strChar-----要过滤的字符
'返回值：过滤后的字符
'**************************************************
function ReplaceBadChar(strChar)
if strChar="" then
ReplaceBadChar=""
else
ReplaceBadChar=replace(replace(replace(replace(replace(replace(replace(strChar,"'",""),"*",""),"?",""),"(",""),")",""),"<",""),".","")
end if
end function
'**************************************************
'过程名：showpage
'作 用：显示“上一页 下一页”等信息
'参 数：filename ----链接地址
' totalnumber ----总数量
' maxperpage ----每页数量
'**************************************************
function showpage(totalnumber,maxperpage,filename)
dim n
if (totalnumber mod maxperpage)=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
CurrentPage=trim(request("page"))
if CurrentPage="" then
CurrentPage=1
end if
response.write "<p align=center><form method=post action="&filename&" target=_self>"
response.write "页次:<strong>"&CurrentPage&"/"&n&"</strong>页 |"
if CurrentPage<2 then
response.write " 首页 | 上一页 |"
else
response.write " <a href="&filename&"&page=1 target=_self>首页</a> | <a href="&filename&"&page="&CurrentPage-1&" target=_self>上一页</a> |"
end if
if n-currentpage<1 then
response.write " 下一页 | 末页"
else
response.write " <a href="&filename&"&page="&CurrentPage+1&" target=_self>下一页</a> |"&_
" <a href="&filename&"&page="&n&" target=_self>末页</a>"
end if
response.write "| 转到:<select name='page' size='1' onchange='javascript:submit()'>"
for i = 1 to n
response.write "<option value="&i
if cint(CurrentPage)=cint(i) then response.write " selected "
response.write ">第"&i&"页</option>"
next
response.write "</select></form></p>"
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -