📄 login_ok.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="Cls_vbsPage.asp"-->
<%
'-----------------------------------------------------------------------------------------------
'On Error Resume Next
DIM startime,endtime
'统计执行时间
startime=timer()
'连接数据库
'-----------------------------------------------------------------------------------------------
%>
<%
if session("username")="" then
response.write "<SCRIPT language=JavaScript>alert('非法进入，或者登录已超时，请重新登录。');this.location.href='vbscript:history.back()';</SCRIPT>"
response.end
end if
sql="select * from user where username='"&session("username")&"'"
rs.open sql,conn,1,1
%>
<html>
<head>
<title>用户界面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
table { font-size: 12px}
a { font-size: 12px; color: #000000; text-decoration: none}
.style1 {color: #0000FF}
.style2 {color: #FF0000}
.style4 {
font-size: 24px;
font-weight: bold;
}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
<table width="760" border="0">
<tr>
<td height="25" colspan="5"><img src="images/top.jpg" width="800" height="209"></td>
</tr>
<tr>
<td height="25" colspan="5"> <%=rs("name")%>您好，欢迎你访问《中西医结合影响学杂志》在线投稿系统，您的详细资料如下：</td>
</tr>
<tr>
<td width="80" height="25"><div align="center">工作电话</div></td>
<td width="220"><div align="center"><%=rs("tel")%></div></td>
<td width="80"><div align="center">手 机</div></td>
<td width="220"><div align="center"><%=rs("shouji")%></div></td>
<td> </td>
</tr>
<tr>
<td height="25"><div align="center" >工作单位</div></td>
<td><div align="center"><%=rs("danwei")%></div></td>
<td><div align="center">电子邮箱</div></td>
<td><div align="center"><%=rs("mail")%></div></td>
<td> </td>
</tr>
<tr>
<td height="25"> <div align="center">详细地址</div></td>
<td><div align="center"><%=rs("dizhi")%></div></td>
<td><div align="center">邮政编码</div></td>
<td><div align="center"><%=rs("youbian")%></div></td>
<td> </td>
</tr>
<tr>
<td colspan="5"><br>
<span class="style2">为确保编辑部能与您及时联系，请保证您的资料准确无误。</span> <a href="edituser.asp" class="style1">修改用户资料</a>
<a href="loginout.asp" class="style1">退出重新登陆</a> <a href="upfiletofile.asp" class="style1">上传稿件</a></td>
</tr>
</table>
<br><br>
<span class="style4">投稿历史</span><br>
................................................................................................................</div>
<table width="760" border="1" cellspacing="0" cellpadding="4" align="center" bordercolordark="#FFFFFF" bordercolorlight="#CCCCCC">
<tr align="center">
<td><a>文章题目</a></td>
<td>第一作者</td>
<td>投稿时间</td>
<td>文章状态</td>
</tr>
<%
Dim ors
Set ors=new Cls_vbsPage '创建对象
Set ors.Conn=conn '得到数据库连接对象
With ors
.PageSize=13 '每页记录条数
.PageName="hisPages" 'cookies名称
.DbType="AC"
'数据库类型,AC为access,MSSQL为sqlserver2000存储过程版,MYSQL为mysql,PGSQL为PostGreSql
.RecType=0
'记录总数(>0为另外取值再赋予或者固定值,0执行count设置存cookies,-1执行count不设置cookies)
.JsUrl="" 'Cls_jsPage.js的路径
.Pkey="ID" '主键
.Field="filename,title,authorname,zt,date,id,user,id"
.Table="file"
.Condition="user='"&session("username")&"' and zt>=2" '条件,不需要where
.OrderBy="ID DESC" '排序,不需要order by,需要asc或者desc
End With
iRecCount=ors.RecCount()'记录总数
iRs=ors.ResultSet() '返回ResultSet
If iRecCount<1 Then%>
<tr bgcolor="">
<td colspan="4">暂无记录</td>
</tr>
<%
Else
For i=0 To Ubound(iRs,2)%>
<tr bgcolor="#FFFFFF" align="center">
<td><a href="showfile.asp?id=<%=iRs(5,i)%>"><%=iRs(1,i)%></a></td>
<td><a href="showauthor.asp?id=<%=iRs(5,i)%>"><%=iRs(2,i)%></a></td>
<td><%=iRs(4,i)%></td>
<form name="form<%=i%>" method="post" action="edit.asp">
<td>
<%
if iRs(3,i)=1 then
response.Write "上传未完成!"
elseif iRs(3,i)=2 then
response.Write "成功上传!"
elseif iRs(3,i)=3 or iRs(3,i)=7 then
response.Write "稿件处理中!"
elseif iRs(3,i)=4 then
response.Write "<input name='id' type='hidden' value='"&iRs(7,i)&"' ><input type='submit' name='edit' value='修改意见'></a>"
elseif iRs(3,i)=5 then
response.Write "退稿!"
elseif iRs(3,i)=6 then
response.Write "录用!"
%>
</td>
</form>
</tr><%
end if
Next
End If
%>
</table>
<table width="760" border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<td>
<div align="center">
<%ors.ShowPage()%>
</div></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td align="center">
<%endtime=timer()%>
本页面执行时间：<%=FormatNumber((endtime-startime)*1000,3)%>毫秒</td>
</tr>
</table>
</body>
</html>
<%
iRs=NULL
ors=NULL
Set ors=NoThing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -