📄 smtp_admin.asp

📁 九酷网络个人主页系统破解版
💻 ASP
字号:
<!--#include file="admin.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/admin.css" type="text/css">
<script language=javascript src="inc/select.js"></script>
</head>
<body>
<%
action=request("action")
select case action
case ""
main
case "add"
chk_admin_login(2)
add
case "del"
chk_admin_login(3)
id=request("id")
del
case "view"
chk_admin_login(1)
sql="select * from mail_smtp where id="&cint(request("id"))
rs.open sql,conn,1,1
view
case "edit"
chk_admin_login(2)
edit
end select
sub main
%>
<table width="70%" border="0" align="center" cellpadding="4" cellspacing="1" class="a2" style="border-collapse: collapse">
  <form method="POST" action="?action=add">
    <tr align="center" class="a1">
      <td height="25" colspan="2">SMTP服务器添加</td>
    </tr>
    <tr class="a3">
      <td width="136"> smtp服务器地址:</td>
      <td>
          <input type="text" name="smtp" size="40">
      </td>
    </tr>
    <tr class="a4">
      <td width="136"> SMTP用户名:</td>
      <td>
          <input type="text" name="username" size="40"></td>
    </tr>
    <tr class="a3">
      <td width="136"> 登陆密码:</td>
      <td>
          <input type="password" name="userpassword" size="40"></td>
    </tr>
    <tr class="a4">
      <td>此服务器上的信箱:</td>
      <td><input type="text" name="useremail" size="40"></td>
    </tr>
    <tr align="center" class="a3">
      <td colspan="2"><input type="submit" name="Submit" value=" 添 加 ">       </td>
    </tr>
  </form>
</table>
<br>
<table width="70%" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
<form action="" method="post" onSubmit="return Confirm()">
  
  <tr  class="a1">
    <td width="7%" height="25" align="center">ID </td>
    <td width="71%" align="center" height="25">SMTP服务器 </td>
    <td width="22%" align="center">操作</td>
  </tr>
  <%
  set rs=conn.Execute("select * from mail_smtp") 
  j=0
  do while not rs.eof
  if j mod 2 = 0 then
a="a3"
else
a="a4"
end if
  %>
  <tr class="<%=a%>">
    <td align="center"><INPUT name=id type=checkbox id="id" value=<%=rs("id")%>></td>
    <td align="center" height="25"><%=rs("smtp")%></td>
    <td align="center"><a href="?action=view&id=<%=rs("id")%>">修改</a></td>
  </tr>
  <%
  j=j+1
  rs.movenext
loop
rs.close
%>
  <tr align="center" class="a4">
    <td height="25" colspan="3"><input name=chkall type=checkbox id="chkall" onclick=CheckAll(this.form) value="ON">
    <input name="action" type="hidden" id="action" value="del">
    <input type="submit" name="Submit2" value=" 删 除 "></td>
  </tr>
</form>
</table>
  <%
end sub
sub view
%>
<table width="70%" border="0" align="center" cellpadding="4" cellspacing="1" class="a2" style="border-collapse: collapse">
  <form method="POST" action="?action=edit">
    <tr align="center" class="a1">
      <td height="25" colspan="2">SMTP服务器修改</td>
    </tr>
    <tr class="a3">
      <td width="136"> smtp服务器地址:</td>
      <td>
          <input type="text" name="smtp" size="40" value="<%=rs("smtp")%>">
      </td>
    </tr>
    <tr class="a4">
      <td width="136"> SMTP用户名:</td>
      <td>
          <input type="text" name="username" size="40" value="<%=rs("username")%>"></td>
    </tr>
    <tr class="a3">
      <td width="136"> 登陆密码:</td>
      <td>
          <input type="password" name="userpassword" size="40" value="<%=rs("userpassword")%>"></td>
    </tr>
    <tr class="a4">
      <td>此服务器上的信箱:</td>
      <td><input type="text" name="useremail" size="40" value="<%=rs("useremail")%>"></td>
    </tr>
    <tr align="center" class="a3">
      <td colspan="2"><input type="hidden"name="id" size="40" value="<%=rs("id")%>"><input type="submit" name="Submit" value=" 修 改 ">       </td>
    </tr>
  </form>
</table>
<%
end sub
sub add
smtp=request.form("smtp")
username=request.form("username")
userpassword=request.form("userpassword")
useremail=request.form("useremail")
if smtp="" or username="" or userpassword="" or useremail="" then
ErrMsg("资料没有填写完整！")
end if
sql="select * from mail_smtp"
rs.open sql,conn,1,3
rs.addnew
rs("smtp")=smtp
rs("username")=username
rs("userpassword")=userpassword
rs("useremail")=useremail
rs.update
rs.close
Response.redirect "smtp_admin.asp"
end sub
sub Del
	if ID="" then
		Response.Write "<br><li>请指定要删除的对象</li>"
	end if
	if instr(ID,",")>0 then
		ID=replace(ID," ","")
		sql="delete from [mail_smtp] where id in (" & ID & ")"
	else
		sql="delete from [mail_smtp] where id=" & Clng(ID)
	end if
	Conn.Execute sql   
	response.redirect "smtp_admin.asp"
end sub
sub edit
smtp=request.form("smtp")
username=request.form("username")
userpassword=request.form("userpassword")
useremail=request.form("useremail")
if smtp="" or username="" or userpassword="" or useremail="" then
ErrMsg("资料没有填写完整！")
end if
sql="select * from mail_smtp where id="&cint(request.form("id"))
rs.open sql,conn,1,3
rs("smtp")=smtp
rs("username")=username
rs("userpassword")=userpassword
rs("useremail")=useremail
rs.update
rs.close
Response.Write("<script>alert('修改成功');location.href='smtp_admin.asp';</script>")
end sub
%>
</body>
</html>
⌨️ 快捷键说明

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