📄 addfavouriate.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#INCLUDE FILE="u_isuser.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=version%>——加入书签</title>
<link rel=stylesheet type=text/css href=include/site.css>
</head>
<body>
<%
if request.querystring("action")="AddTelephone" then
call tel_addok()
end if
sub tel_addok()
OfficeNumber=trim(request("OfficeNumber"))
tel_number=trim(request("tel_number"))
tel_bigclasscn1=trim(request("bigclasscn1"))
tel_bigclasscn=trim(request("bigclasscn"))
tel_smallclasscn=trim(request("smallclasscn"))
explain=request("explain")
keyword=trim(request("keyword"))
Name=trim(request("Name"))
Address=trim(request("Address"))
Mobile=trim(request("Mobile"))
ZipCode=trim(request("ZipCode"))
if session("name")<>"" then
Ower=session("name")
end if
adddate=now()
if tel_bigclasscn="" then tel_bigclasscn="未填写"
if tel_smallclasscn="" then tel_smallclasscn="未填写"
if explain="" then explain="未填写"
if keyword="" then keyword="未填写"
response.Write("<br>")
response.Write("<br>")
response.Write("<br>")
response.Write("<br>")
response.Write("<br>")
if tel_number<>"" then
set rs=Server.CreateObject("Adodb.Recordset")
sql="Select * From favourite"
rs.open sql,conn,1,3
rs.addnew
rs("OfficeNumber")=OfficeNumber
rs("tel_number")=tel_number
rs("BigClassCn1")=tel_bigclasscn1
rs("BigClassCN")=tel_BigClassCN
rs("SmallClassCN")=tel_SmallClassCN
rs("content")=explain
rs("date")=adddate
rs("keyword")=keyword
rs("Name")=Name
rs("Address")=Address
rs("Mobile")=Mobile
rs("ZipCode")=ZipCode
rs("Ower")=Ower
rs.update
rs.close
set rs=nothing
stitle="添加电话号码"
smsg="您已经成功的添加了一条新的电话号码。"
call success(stitle,smsg)
else
errormsg=errormsg+"<br>"+"<li>电话号码必须填写！</a>"
call disperrs()
response.write errormsg
response.end
end if
end sub
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -