📄 file.asp

📁 简单的企业发布信息网站有留言功能界面美观
💻 ASP
字号:
<!--#include file="conn/db.asp"-->
<% 
Response.expires=-1 
Response.AddHeader"pragma","no-cache" 
Response.AddHeader"cache-control","no-store" 
action=request("action")
if action="" then action="admin"
select case action
case "checkadmin"
	if session("login")<>true then
	user=ck(request.Form("adminuser"))
	pwd=ck(request.Form("adminpwd"))
	set rs=server.CreateObject("adodb.recordset")
	sql="select * from admin where admin='"&user&"'"
	rs.open sql,conn,3,2
	if rs.eof then
		p "管理帐号不正确!<a href='#' onclick=""getdata('file.asp?action=adminlogin','loginlist','loginlist')"">返回</a></script>"
	else
		if pwd<>rs("password") then
					p "管理密码不正确!<a href='#' onclick=""getdata('file.asp?action=login','loginlist','loginlist')"">返回</a></script>"
					else
			session("login")=true
			session("adminlogin")=rs("admin")
					p "<a href='javascript:void(0)' onclick=""getdata('list.asp?action=updatepwd','echomsg','contentdata')"">修改密码</a>"
			p "&nbsp;&nbsp;"
			p "<a href='javascript:void(0)' onclick=""getdata('list.asp?action=linkadmin','echomsg','contentdata')"">链接管理</a>"
			p "<br />"
			
			p "<a href='javascript:void(0)' onclick=""getdata('list.asp?action=updateinfo','echomsg','contentdata')"">修改资料</a>"
			p "&nbsp;&nbsp;"
			p "<a href='#' onclick=""getdata('file.asp?action=loginout','loginlist','loginlist')"">退出管理</a>"
		end if
	end if

	else
			p "<a href='javascript:void(0)' onclick=""getdata('list.asp?action=updatepwd','echomsg','contentdata')"">修改密码</a>"
			p "&nbsp;&nbsp;"
			p "<a href='javascript:void(0)' onclick=""getdata('list.asp?action=linkadmin','echomsg','contentdata')"">链接管理</a>"
			p "<br />"
			
			p "<a href='javascript:void(0)' onclick=""getdata('list.asp?action=updateinfo','echomsg','contentdata')"">修改资料</a>"
			p "&nbsp;&nbsp;"
			p "<a href='#' onclick=""getdata('file.asp?action=loginout','loginlist','loginlist');"">退出管理</a>"
 end if

case "adminlogin"
%>
<div id="c_center">
            <img src="image/cont_06_admin.jpg" />
            <div id="pwd" style="padding: 0 0 0 40px;">
            <form action="" method="post">
	    <fieldset>
	    <legend><h1 style="font: 14pt arial; font-weight: bold; color: #7e7e7e;">Administrator Login</h1></legend>
	        <div>
		      <label>帐&nbsp;&nbsp;号</label>
		      <input name="user" type="text" id="adminuser" size="14" />
	        </div><br />
	        <div>
		      <label>密&nbsp;&nbsp;码</label>
		      <input name="npwd" type="password" id="adminpwd" size="14" />
	        </div><br />
	        <div >
		      <label>&nbsp;</label>
		      <input type="button" name="Submit" value="确认" onclick="return updatepwd();" />
		      <input type="reset" name="Submit2" value="重置" /><br /><br />
	        </div>
	    </fieldset>	
            </form>	
            </div>	
</div>

<%
case "updatepwd"
%>
<div id="updatepwd">
<div id="pwd">
<form action="" method="post">
	<fieldset>
		<legend>修改密码<br />
		</legend><br />
	<div >
		<label>帐号</label>
		<input name="user" type="text" id="user" size="14" />
	</div><br />
	<div >
		<label>新密码</label>
		<input name="npwd" type="password" id="npwd" size="14" />
	</div><br />
	<div >
		<label>确认</label>
		<input name="npwd1" type="password" id="npwd1" size="14" />
	</div><br />
	<div >
		<label>&nbsp;</label>
		<input type="button" name="Submit" value="修改" onclick="return updatepwd();" />
		<input type="reset" name="Submit2" value="重置" />
	</div>
	</fieldset>	
</form>	
</div>	
</div> 

<%
case "savepwd"
	user=ck(request.Form("user"))
	pwd=ck(request.Form("pwd"))
	set rs=server.CreateObject("adodb.recordset")
	sql="select * from admin where adminuser='"&session("adminlogin")&"'"
	rs.open sql,conn,3,2
	rs("admin")=user
	rs("password")=pwd
	rs.update
	rs.close
	set rs=nothing
	p "信息修改成功！！<a href='javascript:void(0)' onclick=""getdata('file.asp?action=look','echomsg','contentdata')"">返回</a>"

case "updatecompanyinfo"
if session("login")=false then
p "你没有权限操作！！<a href='javascript:void(0)' onclick=""getdata('file.asp?action=look','echomsg','contentdata')"">返回</a>"
response.End()
end if%>
<div id="updateinfo">
<form action="" method="">
	<fieldset>
		<fieldset>
		<legend>公司简介</legend>
		<textarea name="aboutme" cols="60" rows="10"><%=aboutme%></textarea>
		</fieldset>
		<br />
		<div style="text-align:center;">
		  <input type="button" name="Submit3" value="修改" onclick="return updateinfo()" />
		  <input type="reset" name="Submit4" value="重置" />
		</div>
	</fieldset>
</form>
</div>

<%
case "companyinfosave"
news=request.Form("aboutme")
set rs=server.CreateObject("adodb.recordset")
sql="select * from admin where admin ='"&session("adminlogin")&"'"
rs.open sql,conn,3,2
rs("aboutme")=aboutme
rs.update
rs.close
set rs=nothing
	p "信息修改成功！！<a href='javascript:void(0)' onclick=""getdata('file.asp?action=look','echomsg','contentdata')"">返回</a>"

case "updatezhici"
if session("login")=false then
p "你没有权限操作！！<a href='javascript:void(0)' onclick=""getdata('file.asp?action=look','echomsg','contentdata')"">返回</a>"
response.End()
end if%>
<div id="updateinfo">
<form action="" method="">
	<fieldset>
		<fieldset>
		<legend>总经理致辞</legend>
		<textarea name="zhici" cols="60" rows="10"><%=zhici%></textarea>
		</fieldset>
		<br />
		<div style="text-align:center;">
		  <input type="button" name="Submit3" value="修改" onclick="return updateinfo()" />
		  <input type="reset" name="Submit4" value="重置" />
		</div>
	</fieldset>
</form>
</div>

<%
case "companyinfosave"
news=request.Form("zhici")
set rs=server.CreateObject("adodb.recordset")
sql="select * from admin where admin ='"&session("adminlogin")&"'"
rs.open sql,conn,3,2
rs("zhici")=zhici
rs.update
rs.close
set rs=nothing
	p "信息修改成功！！<a href='javascript:void(0)' onclick=""getdata('file.asp?action=look','echomsg','contentdata')"">返回</a>"

case "project"
page=getpage(request.QueryString("page"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from project order by id desc"
rs.pagesize=30
rs.open sql,conn,3,2
if rs.eof then
	p "当前没有数据.."
else
	ipage=0
	rs.absolutepage=page
	p "<div style='text-align:left;font-size:12px;background-color:#fff;border:1px solid #AAC2FB;'>"
	do while not rs.eof and ipage<rs.pagesize				
	p "<div style='float:right;width:70px;text-align:right;'>"
					p "&nbsp;"
					p "<a href='javascript:void(0)' onclick=""getdata('list.asp?action=projectdel&page="&page&"&read="&rs(0)&"','echomsg','contentdata')"">删除</a>&nbsp;"
					'p""
			p "</div>"
		p "&nbsp;*&nbsp;<%=rs("projectname")%> &nbsp;&nbsp;&nbsp;<%=rs("subject")%><br/>"
	
	ipage=ipage+1
	rs.movenext
	loop
	p "</div><br />"
	p "<div id='page' style='font-size:12px;text-align:right;'>"
	p "共"&rs.recordcount&"条&nbsp;每页"&rs.pagesize&"条&nbsp;页次："&page&"/"&rs.pagecount&"&nbsp;"
		if page=1 then
			p "|&lt;&nbsp;&lt;&lt;"
		else
			p "<a href='javascript:void(0)'title='首页' onclick=""getdata('file.asp?action=project&page=1','echomsg','contentdata')"">|&lt;</a>"
			p "&nbsp;"
			p "<a href='javascript:void(0)' title='上页' onclick=""getdata('file.asp?action=project&page="&page-1&"','echomsg','contentdata')"">&lt;&lt;</a>"
		end if
		p "&nbsp;"
		if page=rs.pagecount then
			p "&gt;&gt;&nbsp;&gt;|"
		else
			p "<a href='javascript:void(0)' title='下页' onclick=""getdata('file.asp?action=project&page="&page+1&"','echomsg','contentdata')"">&gt;&gt;</a>"
			p "&nbsp;"
			p "<a href='javascript:void(0)' title='尾页' onclick=""getdata('file.asp?action=project&page="&rs.pagecount&"','echomsg','contentdata')"">&gt;|</a>"
		end if
		p "&nbsp;跳转&nbsp;<select onchange=""getdata('file.asp?action=project&page='+this.value,'echomsg','contentdata')"" style='font-size:11px;'>"
		for i=1 to rs.pagecount 
			p "<option value='"&i&"'"
			if i=page then p "selected='selected'"
			p">"&i&"</option>"
		next
		p "</select>"
    p "</div>"
end if	
rs.close
set rs=nothing	

case "projectdel"
	id=request("read")
	page=request("page")
	set rs=server.CreateObject("adodb.recordset")
	sql="select * from project where id="&id
	rs.open sql,conn,3,2
	rs.delete
	rs.update	
	rs.close
	set rs=nothing
	p "操作成功！<a href='javascript:void(0)' onclick=""getdata('file.asp?action=project&page="&page&"','echomsg','contentdata')"">返回</a>"	

case "projectadd"
%>
<div id="addproject">
	<div>
		<label>项目名称</label>
		<input name="projectname" type="text" size="16" id="projectname" />
	</div><br />
	<div>
		<label>类型</label>
		<select style="font-size: 11px;" name="subject" id="subject">
                     <option value="1" selected="selected">石油天然气类</option>
                     <option value="2">采矿权类</option>
                     <option value="3">探矿权类</option>
                </select>
	</div><br />
	<div style="text-align:center;">
	<input type="button" value="提交" onclick="return addproject()" />
	<input type="reset" value="重写" onclick="linkreset()" />
	</div>
</div>        

<%
case "projectsave"case "linksave"
home=ck(request.Form("projectname"))
url=ck(request.Form("subject"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from project"
rs.open sql,conn,3,2
rs.addnew
rs("projectname")=projectname
rs("subject")=subject
rs.update
rs.close
set rs=nothing
p "提交成功!<a href='javascript:void(0)' onclick=""getdata('file.asp?action=project','linklist','linklist');"">返回</a>"

case "bbs"
page=getpage(request.QueryString("page"))
set rs=server.CreateObject("adodb.recordset")
rs.pagesize=6
sql = "select * from bbs order by id "
rs.open sql,conn,3,2 
if rs.eof then

         p "当前没有留言信息"
  
   else 
   ipage=0
   rs.absolutepage=page
%>
			<div id="page">
		        共<%= rs.recordcount %>条留言 每页<%= rs.pagesize %>条 页次:<%=page%>/<%= rs.pagecount %>
			<% If page=1 Then %>
			          首页
			          上页 
			<% else %>
			          <a href="messageboard.asp?page=1"><strong>首页</strong></a>
                                  <a href="messageboard.asp?page=<%=(page-1)%>"><strong>上页</strong></a>
			<% end if %>
			<% If page=rs.pagecount Then %>
			          下页
			          尾页 
			<% else %>
			          <a href="messageboard.asp?page=<%=(page+1)%>"><strong>下页</strong></a>
			          <a href="messageboard.asp?page=<%=rs.pagecount%>"><strong>尾页</strong></a>
			<% end if %>			
			</div>
<%
   do while not rs.eof and ipage<rs.pagesize
%>   
<div class="title"><span style="float: right">时间: <%=rs("publishtime")%>&nbsp;&nbsp;&nbsp;<a href="javascript: void(0);" onclick="getdata('file.asp?action=bbsdel&page="&page&"&read="&rs(0)&"','echomsg','contentdata')">删除</a></span>主题: <%=rs("title")%></div>
<ul>
      <li class="name"> 姓名:<%=rs("name")%><br />地区:<%=rs("address")%><br /><img src="image/phone.jpg" width="10pt" height="10pt" title="电话" />:<%=rs("phone")%>&nbsp;&nbsp;&nbsp;<a href='mailto: <%=rs("email")%>'><img src="image/email.jpg" width="10pt" height="10pt" title="email" /></a></li>
      <li><%=rs("content")%></li>
</ul>
<%
  ipage=ipage+1
  rs.movenext
  loop
%>
			<div id="page">
		        共<%= rs.recordcount %>条留言 每页<%= rs.pagesize %>条 页次:<%=page%>/<%= rs.pagecount %>
			<% If page=1 Then %>
			          首页
			          上页 
			<% else %>
			          <a href="messageboard.asp?page=1"><strong>首页</strong></a>
                                  <a href="messageboard.asp?page=<%=(page-1)%>"><strong>上页</strong></a>
			<% end if %>
			<% If page=rs.pagecount Then %>
			          下页
			          尾页 
			<% else %>
			          <a href="messageboard.asp?page=<%=(page+1)%>"><strong>下页</strong></a>
			          <a href="messageboard.asp?page=<%=rs.pagecount%>"><strong>尾页</strong></a>
			<% end if %>		
			</div>
<%   
end if
rs.close
set rs=nothing   

case "bbsdel"
	id=request("read")
	page=request("page")
	set rs=server.CreateObject("adodb.recordset")
	sql="select * from bbs where id="&id
	rs.open sql,conn,3,2
	rs.delete
	rs.update	
	rs.close
	set rs=nothing
	p "操作成功！<a href='javascript:void(0)' onclick=""getdata('file.asp?action=bbs&page="&page&"','echomsg','contentdata')"">返回</a>"	


end select
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -