⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 webinfo.asp

📁 狼道公司源码下载
💻 ASP
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!--#include file="../Inc/Conn.asp" -->
<!--#include file="Check.asp" -->

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="style.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
</head>
<body leftmargin=0 bottommargin=0 rightmargin=0 topmargin=0>
<script src="images/admin.js" type="text/javascript"></script>
<div class=menuskin id=popmenu 
      onmouseover="clearhidemenu();highlightmenu(event,'on')" 
      onmouseout="highlightmenu(event,'off');dynamichide(event)" style="Z-index:100"></div>
<div align=center>
  <!--#include file="Top.asp" -->
<%

if Request.Form("act")="save" then
   set rs=server.createobject("adodb.recordset")
   sql="select WebTitle,WebKeyWord,EnWebTitle,EnWebKeyWord from [WebConfig]"
   WebTitle2=Request("WebTitle")
   WebKeyWord2=Request("WebKeyWord")
   EnWebTitle2=Request("EnWebTitle")
   ENWebKeyWord2=Request("EnWebKeyWord")   
   rs.open sql,conn,3,3
      if rs.eof then 
	     rs.addnew
	  end if
      rs("WebTitle")=WebTitle2
	  rs("WebKeyWord")=WebKeyWord2
      rs("ENWebTitle")=EnWebTitle2
	  rs("EnWebKeyWord")=EnWebKeyWord2	  
   rs.update
   rs.close
   response.redirect "WebInFo.asp"
end if

Set rs= Server.CreateObject("ADODB.Recordset")

rs.open "select WebTitle,WebKeyWord,EnWebTitle,EnWebKeyWord from [WebConfig]",conn,1,1
%>   
  
  <form name="AddForm" method="post" action="WebInFo.asp">
  <table cellpadding="2" cellspacing="1" border="0" width="96%" class="tableBorder" align=center>
<tr>
  <th colspan=2 height=25>网站信息配置</th>
</tr>
<tr><td class=BodyTitle colspan=2 height=23 style="FONT-SIZE: 9pt; FILTER: dropshadow(color=#FFFFFF,offx=1,offy=1); COLOR: #000000;">&nbsp;</td>
</tr>
<tr>
  <td height=24 colspan="2" align="center" class="forumRowHighlight">网站标题和关键字都影响到网站的搜索引擎排名,请慎重填写!</td>
  </tr>
<tr>
  <td width="30%" height=24 align="right" class="forumRowHighlight">网站标题(中文):</td>
  <td width="70%" class="forumRow"><textarea name="WebTitle" cols="70" rows="3" id="WebTitle"><%=rs("WebTitle")%></textarea></td>
</tr>
<tr>
  <td height=24 align="right" class="forumRowHighlight">网站标题(英文):</td>
  <td class="forumRow"><textarea name="EnWebTitle" cols="70" rows="3" id="EnWebTitle"><%=rs("EnWebTitle")%></textarea></td>
</tr>
<tr>
  <td height=31 align="right" class="forumRowHighlight">搜索关键字(中文):</td>
  <td height=31 align="left" class="forumRowHighlight"><textarea name="WebKeyWord" cols="70" rows="5" id="WebKeyWord"><%=rs("WebKeyWord")%></textarea>
    <span class="forumRow">
    <input name="act" type="hidden" id="act" value="save">
    </span></td>
</tr>
<tr>
  <td height=31 align="right" class="forumRowHighlight">搜索关键字(英文):</td>
  <td height=31 align="left" class="forumRowHighlight"><textarea name="EnWebKeyWord" cols="70" rows="5" id="EnWebKeyWord"><%=rs("EnWebKeyWord")%></textarea></td>
</tr>
<tr>
  <td height=31 colspan="2" align="center" class="forumRowHighlight"><input type="submit" name="Submit" value=" 提 交 ">
    &nbsp;&nbsp;&nbsp;&nbsp; <input type="reset" name="Submit2" value=" 重 置 "></td>
</tr>
</table>
  </form>
  <BR>
<BR>
</div>
</body></html>

⌨️ 快捷键说明

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