<%
Action = Request.QueryString("action")
If Action = "add" Then
LinkName = Request.Form("LinkName")
LinkUrl = Request.Form("LinkUrl")
LinkImgPath = Request.Form("LinkImgPath")
LinkInfo = Request.Form("LinkInfo")
Style = Request.Form("Style")
ip = Request.Form("ip")
Class1 = Request.Form("Class")
CheckCode=replace(trim(Request("CheckCode")),"'","")
if CheckCode="" then
response.Write("")
response.End()
end if
if CheckCode<>CStr(session("CheckCode")) then
response.Write("")
response.End()
end if
SQL = "Insert Into [FriendLink] (LinkName,LinkUrl,LinkImgPath,LinkInfo,Style,ip,Class) Values ('"&LinkName&"','"&LinkUrl&"','"&LinkImgPath&"','"&LinkInfo&"',"&Style&",'"&ip&"',"&Class1&")"
Conn.Execute(SQL)
Response.write ""
End if
%>
友情连接--企业邮箱 企业邮局 企业邮箱申请 企业邮局申请 企业邮箱租用