Code/Resource
Windows Develop
Linux-Unix program
Internet-Socket-Network
Web Server
Browser Client
Ftp Server
Ftp Client
Browser Plugins
Proxy Server
Email Server
Email Client
WEB Mail
Firewall-Security
Telnet Server
Telnet Client
ICQ-IM-Chat
Search Engine
Sniffer Package capture
Remote Control
xml-soap-webservice
P2P
WEB(ASP,PHP,...)
TCP/IP Stack
SNMP
Grid Computing
SilverLight
DNS
Cluster Service
Network Security
Communication-Mobile
Game Program
Editor
Multimedia program
Graph program
Compiler program
Compress-Decompress algrithms
Crypt_Decrypt algrithms
Mathimatics-Numerical algorithms
MultiLanguage
Disk/Storage
Java Develop
assembly language
Applications
Other systems
Database system
Embeded-SCM Develop
FlashMX/Flex
source in ebook
Delphi VCL
OS Develop
MiddleWare
MPI
MacOS develop
LabView
ELanguage
Software/Tools
E-Books
Artical/Document
Deal_link.asp
Package: pinke2010.rar [view]
Upload User: pengwei803
Upload Date: 2021-02-10
Package Size: 3311k
Code Size: 2k
Category:
WEB(ASP,PHP,...)
Development Platform:
HTML/CSS
- <!--#include file="../Ku_inc/Ku_sql.asp"-->
- <!--#include file="../Ku_inc/Ku_config.asp"-->
- <!--#include file="Ku_conn.asp"-->
- <!--#include file="../Ku_inc/inc.asp"-->
- <!-- #include file="Session.asp"-->
- <%
- if request("action")="add" then
- name=Checkin(trim(Request.form("name")))
- If name="" Then
- Response.Write "<script>alert(""网站名称不能为空!"");location.href=""javascript:history.back()"";</script>"
- Response.end()
- end if
- set rs=server.createobject("adodb.recordset")
- sql="select * from ku_link where name='"&name&"'"
- rs.open sql,conn,1,3
- if (rs.eof and rs.bof) then
- rs.addnew
- rs("name")=name
- rs("url")=request("url")
- rs("logo")=request("logo")
- if request("biaoji")<>"" then
- rs("biaoji")=1
- end if
- if request("logo")<>"" then
- rs("yeslogo")=1
- end if
- rs("shenhe")=1
- rs("addtime")=now()
- rs.update
- rs.close
- response.Write("<script>alert(""添加成功!"");location.href=""ku_link.asp"";</script>")
- else
- response.Write("<script>alert(""网站已存在!"");location.href=""ku_link.asp"";</script>")
- end if
- end if
- %>
- <%
- if request("action")="shenhe" then
- id=request("id")
- set rs=server.createobject("adodb.recordset")
- sql="select * from ku_link where id="&id
- rs.open sql,conn,1,3
- rs("shenhe")=1
- rs.update
- rs.close
- response.Write("<script>alert(""审核成功!"");location.href=""ku_link.asp"";</script>")
- end if
- %>
- <%
- if request("action")="edit" then
- name=Checkin(trim(Request.form("name")))
- id=request("id")
- If name="" Then
- Response.Write "<script>alert(""网站名称不能为空!"");location.href=""javascript:history.back()"";</script>"
- Response.end()
- end if
- set rs=server.createobject("adodb.recordset")
- sql="select * from ku_link where id="&id
- rs.open sql,conn,1,3
- if request("biaoji")<>"" then
- rs("biaoji")=1
- end if
- rs("name")=name
- rs("url")=request("url")
- rs("logo")=request("logo")
- if request("logo")<>"" then
- rs("yeslogo")=1
- end if
- rs("shenhe")=1
- rs("addtime")=now()
- rs.update
- rs.close
- response.Write("<script>alert(""修改成功!"");location.href=""ku_link.asp"";</script>")
- end if
- %>