📄 gongyu.asp
字号:
<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("../date_a/jobjobs.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};pwd=SINOT0000"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
<%
If NOT IsEmpty (request("ture")) then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from gongyu",conn,2,2
rs.addnew
rs("type")=request("type")
rs("comment")=request("comment")
rs.update
rs.Close
set rs=nothing
response.write "<SCRIPT language=javascript>"
response.write "alert('您已经成功填写公寓信息!');"
response.write "</SCRIPT>"
response.write "<SCRIPT language=javascript>"
response.write "this.location.href='gongyu.asp';"
response.write "</SCRIPT>"
end if
%>
<%
'开始删除操作
if request("action")="del" then
id=request("id")
conn.execute "delete * from gongyu where id=" & id
url="gongyu.asp"
response.write "<script LANGUAGE='javascript'>alert('删除成功!');window.location='"&url&"'</script>"
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<link rel="stylesheet" href="../inc/index.css" type="text/css">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>新闻管理</title>
</head>
<body topmargin="0" leftmargin="0">
<table border="0" cellpadding="0" cellspacing="0" width="780" height="450" align="center">
<tr>
<td height="14" valign="top" colspan="3" bgcolor="#396BA5"></td>
</tr>
<tr>
<td width="174" rowspan="5" valign="top" bgcolor="#E1E1E1">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="118" background="../images/stat-bg.GIF">
<!--DWLayoutTable-->
<tr>
<td width="118" height="30"><div align="center"><a href="mbbs.asp">站点公告管理</a></div></td>
</tr>
<tr>
<td width="118" height="30"><div align="center"><a href="friend.asp">友情连接管理</a></div></td>
</tr>
<tr>
<td width="118" height="30"><div align="center"><a href="gongyu.asp">公寓信息管理</a></div></td>
</tr>
<tr>
<td height="29"><p align="center"> <a href="mnews.asp"> 新闻管理</a> </td>
</tr>
<tr>
<td height="29"><div align="center"><a href="mhrconsole.asp">职场宝典管理</a></div></td>
</tr>
<tr>
<td height="29"><div align="center"><a href="mqzconsole.asp">创业故事管理</a></div></td>
</tr>
<tr>
<td height="28"><div align="center"><a href="zslx.asp">招生留学管理</a></div></td>
</tr>
<tr>
<td height="28"><div align="center"><a href="zpinfo.asp">招聘信息管理</a></div></td>
</tr>
<tr>
<td height="28"><div align="center"><a href="qzinfo.asp">求职信息管理</a></div></td>
</tr>
<tr>
<td height="29"><p align="center"><a href="mperson.asp">管理个人用户</a> </td>
</tr>
<tr>
<td height="34"><p align="center"><a href="mcompany.asp">管理单位用户</a> </td>
</tr>
<tr>
<td height="34"><p align="center"><a href="#"onClick="javascript:if (confirm('是否确定清空调查引擎数据?')) href='reset.asp';
else return;">清空调查数据</a> </td>
</tr>
<tr>
<td height="28"><p align="center"><a href="exit.asp">退出登录</a> </td>
</tr>
</table>
</center>
</div></td>
<td width="12" rowspan="5" valign="top" bgcolor="#396BA5"> </td>
<td width="594" height="52"> </td>
</tr>
<tr>
<td height="16" bgcolor="#CCCCCC"> <div align="center"><font color="#0066CC">公寓信息管理</font></div></td>
</tr>
<tr>
<td height="94"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="40%" height="30">公寓类型</td>
<td width="40%" align="center">发布时间</td>
<td width="20%" colspan="2" align="center">操作</td>
</tr>
<%
function user(a)
if a=1 then
b="男子公寓"
end if
if a=2 then
b="女子公寓"
end if
if a=3 then
b="男女公寓"
end if
user=b
end function
%>
<%
dim pagecount,i
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "select * from gongyu order by time desc",conn,1,1
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs.pagesize=10
rs.AbsolutePage=pagecount
do while not rs.eof
%>
<tr>
<td height="25"><a href="javascript:openwin('comment.asp?id=<%=rs("id")%>','top=50,left=100,width=510,height=300')"><%=user(rs("type"))%></a></td>
<td height="25" align="center"><%=rs("time")%></td>
<td width="10%" align="center">[<a href="gongyu.asp?action=del&id=<%=rs("id")%>&page=<%=cstr(pagecount)%>" onClick="return confirm('确认要删除吗？')">删除</a>]</td>
</tr>
<%
rs.movenext
i=i+1
if i>=rs.pagesize then exit do
loop
%>
<tr>
<form action="gongyu.asp" method="post">
<td colspan="7">
<div align="center">共<b><%=rs.recordcount%></b>条记录, 页次:<b><font color=red><%=pagecount%></font>/<%=rs.pagecount%></b>, 当前从第
<%
if pagecount<=1 then
response.write "<font color=red>1</font>"
else
response.write "<font color=red>" & pagecount*rs.pagesize-rs.pagesize+1 & "</font>"
end if
%>
条开始
<% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then %>
<a href="gongyu.asp?page=<%=cstr(pagecount+1)%>">下一页</a>
<% end if %>
<% if rs.pagecount>1 and rs.pagecount=pagecount then %>
<a href="gongyu.asp?page=<%=cstr(pagecount-1)%>">上一页</a>
<%end if%>
<% if pagecount<>1 and rs.pagecount<>pagecount then%>
<a href="gongyu.asp?page=<%=cstr(pagecount-1)%>"> 上一页</a> <a href="gongyu.asp?page=<%=cstr(pagecount+1)%>">下一页</a>
<% end if%>
直接到第
<select name="page">
<%for i=1 to rs.pagecount%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
页
<input type="submit" name="go" value="Go">
</div></td>
</form>
</tr>
</table></td>
</tr>
<tr>
<td height="16" valign="top" bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td align="center" valign="top"><form action="gongyu.asp" name="myform" id="myform" method="post">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="10%" height="30" align="center">公寓类型</td>
<td><select name="type" id="type">
<option value="1">男子公寓</option>
<option value="2">女子公寓</option>
<option value="3">男女公寓</option>
</select></td>
</tr>
<tr>
<td width="10%" height="30" align="center">公寓简介</td>
<td><textarea name="comment" cols="50" rows="5" id="comment"></textarea></td>
</tr>
<tr>
<td height="30" colspan="2" align="center">
<input id="ture" type="submit" name="ture" value="提 交">
<input name="reset" type="reset" value="重 置"></td>
</tr>
</table>
</form></td>
</tr>
<tr>
<td valign="top" height="12" bgcolor="#396BA5" colspan="3"> </td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -