📄 webmes.asp

📁 信息管理系统！很简单的课程设计！类似于城市信息交换的网站！
💻 ASP
字号:
<%'注意：防止多次发送，以及防止非法登录
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if not mid(server_v1,8,len(server_v2))=server_v2 then
Response.Write "<script language=JavaScript>{window.alert('系统错误，拒绝从非本服务器登陆!');window.history.go(-1);}</script>"
response.end
end if

if session("admin_login")<>true then
	response.Write("<html><link href=../style.css rel=stylesheet type=text/css><body><table height=100% width=100% align=center valign=middle><tr><td align=center valign=center><p align=center>您没有登录或者已经超时!!请点击下面的链接,进入登录界面!!</p><p align=center>--&gt;&gt; <a href=../login/login.asp>登录</a> &lt;&lt;--</p></td></tr></table></body></html>")
	response.end
end if
%>

<%
action = trim(request.QueryString("action"))
if action = "change" then
%>
<!--#include file="../../conn/fso.asp"-->
<%
	FILENAME = "/conn/const.asp"
	fdel(FILENAME)
	call wl("<%",FILENAME)
	call wl("Web_Name = """ & request.Form("Web_Name") & """",FILENAME)
	call wl("Web_Add = """ & request.Form("Web_Add") & """",FILENAME)
	call wl("Web_KeyWord = """ & request.Form("Web_KeyWord") & """",FILENAME)
	call wl("Corp_Name = """ & request.Form("Corp_Name") & """",FILENAME)
	call wl("Corp_Add = """ & request.Form("Corp_Add") & """",FILENAME)
	call wl("Corp_Tel = """ & request.Form("Corp_Tel") & """",FILENAME)
	call wl("Corp_Email = """ & request.Form("Corp_Email") & """",FILENAME)
	call wl("Corp_Buttom = """ & request.Form("Corp_Buttom") & """",FILENAME)
	call wl("Corp_Des = """ & request.Form("Corp_Des") & """",FILENAME)
	call wl("Corp_Bei = """ & request.Form("Corp_Bei") & """",FILENAME)
	call wl("Corp_LinkAdd = """ & request.Form("Corp_LinkAdd") & """",FILENAME)
	call wl("EmailServer = """ & request.Form("EmailServer") & """",FILENAME)
	call wl("SendEmail = """ & request.Form("SendEmail") & """",FILENAME)
	call wl("LoadName = """ & request.Form("LoadName") & """",FILENAME)
	call wl("LoadPwd = """ & request.Form("LoadPwd") & """",FILENAME)
	call wl("SendName = """ & request.Form("SendName") & """",FILENAME)
	call wl(chr(37) & ">",FILENAME)
	
	set fso = nothing
	response.Redirect("webmes.asp")
	response.End()
end if
%>
<!--#include file="../../conn/const.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style.css" rel="stylesheet" type="text/css">
<STYLE type="text/css">
  <!--
   BODY {
    scrollbar-face-color:#ffffff;
    scrollbar-arrow-color:#000000;
    scrollbar-highlight-color:#C0C0C0;
    scrollbar-3dlight-color:#ffffff;
    scrollbar-shadow-color:#ffffff;
    scrollbar-darkshadow-color:#ffffff;
    scrollbar-track-color:#ffffff;
   }
  -->
  </STYLE>
<title>网站信息管理</title>
</head>

<body>
<form name="form1" method="post" action="?action=change">
  <table width="90%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#003300">
	<tr> 
	  <td height="25" colspan="4"  background="../Images/topbg.gif"><strong>网站基本功能 &gt;&gt; 修改网站基本信息：</strong></td>
	</tr>
	<tr> 
	  <td width="19%" height="25" align="center" bgcolor="#FFFFFF">网站名称：</td>
	  <td colspan="3" bgcolor="#FFFFFF"><input name="Web_Name" type="text" class="txttable" value="<%=Web_Name%>" size="50"></td>
	</tr>
	<tr> 
	  <td height="25" align="center" bgcolor="#FFFFFF">网站地址：</td>
	  <td height="12" colspan="3" bgcolor="#FFFFFF"><input name="Web_Add" type="text" class="txttable" value="<%=Web_Add%>" size="50"></td>
	</tr>
	<tr> 
	  <td height="25" align="center" bgcolor="#FFFFFF">关键词：</td>
	  <td height="2" colspan="3" bgcolor="#FFFFFF"><input name="Web_KeyWord" type="text"  class="txttable" value="<%=Web_KeyWord%>" size="50"></td>
	</tr>
	<tr> 
	  <td height="25" align="center" bgcolor="#FFFFFF">公司名称：</td>
	  <td height="2" colspan="3" bgcolor="#FFFFFF"><input name="Corp_Name" type="text" class="txttable" value="<%=Corp_Name%>" size="50"></td>
	</tr>
	<tr> 
	  <td height="25" align="center" bgcolor="#FFFFFF">公司地址：</td>
	  <td height="2" colspan="3" bgcolor="#FFFFFF"><input name="Corp_Add" type="text"  class="txttable" value="<%=Corp_Add%>" size="50"></td>
	</tr>
	<tr> 
	  <td height="1" align="center" bgcolor="#FFFFFF">公司电话：</td>
	  <td height="1" colspan="3" bgcolor="#FFFFFF"><input name="Corp_Tel" type="text"  class="txttable" value="<%=Corp_Tel%>" size="50"></td>
	</tr>
	<tr> 
	  <td height="25" align="center" bgcolor="#FFFFFF">公司邮箱：</td>
	  <td height="0" colspan="3" bgcolor="#FFFFFF"><input name="Corp_Email" type="text"  class="txttable" value="<%=Corp_Email%>" size="50"></td>
	</tr>
	<tr> 
	  <td height="25" align="center" bgcolor="#FFFFFF">网站版权：</td>
	  <td height="-1" colspan="3" bgcolor="#FFFFFF"><input name="Corp_Buttom" type="text"  class="txttable" value="<%=Corp_Buttom%>" size="50"></td>
	</tr>
	<tr> 
	  <td height="25" align="center" bgcolor="#FFFFFF"><span class="forumRowHighlight">搜索引擎站点描述：</span></td>
	  <td height="0" colspan="3" bgcolor="#FFFFFF"><input name="Corp_Des" type="text"  class="txttable" value="<%=Corp_Des%>" size="50"></td>
	</tr>
	<tr> 
	  <td height="25" align="center" bgcolor="#FFFFFF">备案序号：</td>
	  <td width="25%" height="12" bgcolor="#FFFFFF"><input name="Corp_Bei" type="text"  class="txttable" value="<%=Corp_Bei%>" size="30"></td>
	  <td width="13%" align="center" bgcolor="#FFFFFF">链接地址：</td>
	  <td width="43%" bgcolor="#FFFFFF"><input name="Corp_LinkAdd" type="text"  class="txttable" value="<%=Corp_LinkAdd%>" size="30"></td>
	</tr>
	<tr align="left"> 
	  <td height="25" colspan="4" bgcolor="#FFFFFF"><strong>发送邮件的配置</strong></td>
	</tr>
	<tr> 
	  <td height="25" align="center" bgcolor="#FFFFFF">邮件服务器地址：</td>
	  <td height="25" colspan="3" align="left" bgcolor="#FFFFFF"><input name="EmailServer" type="text"  class="txttable" value="<%=EmailServer%>" size="50"></td>
	</tr>
	<tr> 
	  <td height="25" align="center" bgcolor="#FFFFFF">发送邮箱：</td>
	  <td height="25" colspan="3" align="left" bgcolor="#FFFFFF"><input name="SendEmail" type="text"  class="txttable" value="<%=SendEmail%>" size="50"></td>
	</tr>
	<tr> 
	  <td height="25" align="center" bgcolor="#FFFFFF">登录名：</td>
	  <td height="25" colspan="3" align="left" bgcolor="#FFFFFF"><input name="LoadName" type="text"  class="txttable" value="<%=LoadName%>" size="50"></td>
	</tr>
	<tr> 
	  <td height="25" align="center" bgcolor="#FFFFFF">登录密码：</td>
	  <td height="12" colspan="3" align="left" bgcolor="#FFFFFF"><input name="LoadPwd" type="text"  class="txttable" value="<%=LoadPwd%>" size="50"></td>
	</tr>
	<tr> 
	  <td height="25" align="center" bgcolor="#FFFFFF">发送时显示的姓名：</td>
	  <td height="12" colspan="3" align="left" bgcolor="#FFFFFF"><input name="SendName" type="text"  class="txttable" value="<%=SendName%>" size="50"></td>
	</tr>
	<tr align="center"> 
	  <td height="25" colspan="4" bgcolor="#FFFFFF"> <input type="submit" name="Submit" value="提交" class="button01"> 
		<input type="reset" name="Submit2" value="重置" class="button01"> </td>
	</tr>
  </table>
</form>
</body>
</html>
💿 文件大小 1030 K
👤 上传用户 littlefish
📂 所属分类编译器/解释器
🏷️ 相关标签

#信息管理系统 #信息交换 #城市 #网站
⌨️ 快捷键说明

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