📄 zxhz.asp

📁 宁波娱乐在线城市,丰富的内容版块
💻 ASP
字号:
<!--#include file="ADMINLib.asp"-->
<%
    if (UCase(Request.Cookies("NC")) <> UCase(Application("NC"))) or (Request.Cookies("NC")="" or Request.Cookies("NC")="访客") then
        Response.Write("对不起，您不是管理员！")
        Response.End
    end if
    if Request.ServerVariables("Request_Method") = "POST" then
        if Request.Form("bXG") = "修改" then
            ret = Command("343|"&Request.Form("tNAME")&"|"&Request.Form("tURL"))
        end if
        if Request.Form("bSC") = "删除"  then
            ret = Command("344|"&Request.Form("tNAME"))
        end if
        if Request.Form("bTJ") = "添加" then
            ret = Command("346|"&Request.Form("tNAME")&"|"&Request.Form("tURL"))
        end if    
        if GetPart(ret,1) <> "0" then
             ShowError 5,GetPart(ret,2)
        else
            ShowMessage 5,"信息已修改！"
        end if    
    end if
        
                    

    ret = CommandEx("342|")

%>    
<html>
<head>
<title>在线合作</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.p9 {  font-family: "宋体"; font-size: 9pt}
INPUT{BORDER-TOP-WIDTH: 1px; PADDING-RIGHT: 1px; PADDING-LEFT: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-LEFT-COLOR: #cccccc; BORDER-BOTTOM-WIDTH: 1px; BORDER-BOTTOM-COLOR: #cccccc; PADDING-BOTTOM: 1px; BORDER-TOP-COLOR: #cccccc; PADDING-TOP: 1px; HEIGHT: 18px; BORDER-RIGHT-WIDTH: 1px; BORDER-RIGHT-COLOR: #cccccc}
.TButton {  font-family: "宋体"; font-size: 9pt;cursor:hand;width:66px;height:22px}
.TButtonSubmit {  font-family: "宋体"; font-size: 9pt;cursor:hand;width:50px;height:18px}
A:link{font-size:9pt;COLOR:black;TEXT-DECORATION: none}
A:visited {font-size:9pt;COLOR:black;TEXT-DECORATION: none}
A:hover {font-size:9pt;COLOR: red; TEXT-DECORATION: underline}
-->
</style>
</head>
<body background=../images/bjxt.gif>
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center" class=p9>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#777777">
  <tr bgcolor="#336699"> 
    <td class="p9" height="18" width="10%"> 
      <div align="center"><font color="#FFFFFF">修改</font></div>
    </td>
    <td class="p9" height="18" width="40%"> 
      <div align="center"><font color="#FFFFFF">网站名称</font></div>
    </td>
    <td class="p9" height="18" width="40%"> 
      <div align="center"><font color="#FFFFFF">网站地址</font></div>
    </td>
    <td class="p9" height="18" width="10%"> 
      <div align="center"><font color="#FFFFFF">删除</font></div>
    </td>
  </tr>
  <%
     for i=1 to Int(GetPart(ret(0),2))
         Response.Write("<tr bgcolor=#ffffff>")
         Response.Write("<form name=fZXHZ method=POST action=zxhz.asp>")
         Response.Write("<td class=p9 height=20 width=10% >")
         Response.Write("<div align=center><input type=submit name=bXG class=TButtonSubmit value=修改></div></td>")
         Response.Write("<td class=p9 height=20 width=40% >"&GetPart(ret(i),1)&"<input type=hidden name=tNAME value="&GetPart(ret(i),1)&"></td>")
         Response.Write("<td class=p9 height=20 width=40% >")
         Response.Write("<div align=center><input type=text name=tURL value='"&GetPart(ret(i),2)&"' class=p9 size=35></div></td>")
         Response.Write("<td class=p9 height=20 width=10% >")
         Response.Write("<div align=center><input type=submit name=bSC class=TButtonSubmit value=删除></div></td></form></tr>")
     next
  %>       
  <tr bgcolor="#336699">
  <form name=fZXHZ method=POST action=zxhz.asp> 
    <td class="p9" height="30" colspan="4">
    &nbsp;&nbsp;<font color=white>请输入网站名称：</font><input type="text" name=tNAME class=p9>&nbsp;&nbsp;<font color=white>网站地址：</font><input type="text" name=tURL class=p9>
    <input type="submit" name="bTJ" value="添加" class="TButton" style="BACKGROUND-COLOR: #336699; BORDER: buttonhighlight 1px solid;COLOR: white">
    </td>
  </form>  
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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