📄 addtelephone.asp
字号:
<!--#INCLUDE FILE="checklogin1.asp" -->
<!--#INCLUDE FILE="theme.asp" -->
<%
sBigClassCN1=replace(request.querystring("Class1"),"'","''")
sBigClassEN1=replace(request.querystring("ClassEn1"),"'","''")
sBigClassCN=replace(request.querystring("Class2"),"'","''")
sBigClassEN=replace(request.querystring("ClassEN2"),"'","''")
sSmallClassCN=replace(request.querystring("Class3"),"'","''")
sSmallClassEN=replace(request.querystring("ClassEN3"),"'","''")
sSmallClassCN1=replace(request.querystring("Class4"),"'","''")
sSmallClassEN1=replace(request.querystring("ClassEN4"),"'","''")
sSmall_id=replace(request.querystring("SmallID"),"'","''")
'如果以POST方式提交，就添加号码
if Request.ServerVariables("Request_Method")="POST" then
BigClassCN1=sBigClassCN1
BigClassEN1=sBigClassEN1
BigClassCN=sBigClassCN
BigClassEN=sBigClassEN
SmallClassCN=sSmallClassCN
SmallClassEN=sSmallClassEN
SmallClassCN1=sSmallClassCN1
SmallClassEN1=sSmallClassEN1
'response.Write(BigClassCN1&","&BigClassEN1&","&BigClassCN&","&SmallClassCN&","&SmallClassEN&","&SmallClassCN1&","&SmallClassEN1)
TelOffice=trim(request("TelOffice"))
tel_number=trim(request("TelephoneNumber"))
TelHomeNumber=trim(request("TelHomeNumber"))
content=trim(request("content"))
keyword=trim(request("keyword"))
TelName=trim(request.form("TelName"))
TelNameEn=trim(request.form("TelNameEn"))
TelAddress=trim(request.form("TelAddress"))
TelMobile=trim(request.form("TelMobile"))
TelZipCode=trim(request.form("TelZipCode"))
call Addtelephone()
call wran()
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=version%>--电话号码添加</title>
<LINK href="include/site.css" rel=stylesheet type=text/css>
</head>
<body>
<form name="form1" method="post" action="">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#0099FF">
<tr valign="middle" bgcolor="#f6f6f6">
<td height="25" colspan="2" bgcolor="#f6f6f6"><div align="center"><strong><%=version%>--电话号码添加</strong></div></td>
</tr>
<tr bgcolor="#f6f6f6">
<td colspan="2" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>
<!--#include file = topMenu.htm--></td>
</tr>
<tr bgcolor="#f6f6f6">
<td colspan="2" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>
所属一级类：
<input name="BigClassCN" type="text" value="<%=sBigClassCN1%>" Class=InputStyle Disabled>
所属二级类：
<input name="BigClassCN2" type="text" value="<%=sBigClassCN%>" Class=InputStyle Disabled>
</td>
</tr>
<tr bgcolor="#f6f6f6">
<td colspan="2" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>
所属三级类：
<input name="SmallclassCN" type="text" value="<%=sSmallClassCN%>" Class=InputStyle Disabled>
所属四级类：
<input type="text" name="SmallclassCN1" value="<%=sSmallClassCN1%>" Class=InputStyle Disabled></td>
</tr>
<tr bgcolor="#f6f6f6">
<td height="25" colspan="2" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>
<span style="color: #FF0000">（下面的内容可以选添）
</span></td>
</tr>
<tr bgcolor="#f6f6f6">
<td colspan="2" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';> 值班电话：
<input type="text" name="TelOffice">
</td>
</tr>
<tr bgcolor="#f6f6f6">
<td colspan="2" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>
姓 名：
<input type="text" name="TelName">
姓名特征码：
<input type="text" name="TelNameEn"></td>
</tr>
<tr bgcolor="#f6f6f6">
<td colspan="2" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';>
办公电话：
<input type="text" name="TelephoneNumber">
地 址：
<input type="text" name="TelAddress"></td>
</tr>
<tr bgcolor="#f6f6f6">
<td colspan="2" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';> 住宅电话：
<input name="TelHomeNumber" type="text">
手 机：
<input type="text" name="TelMobile"> </td>
</tr>
<tr bgcolor="#f6f6f6">
<td colspan="2" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';> 邮 编：
<input type="text" name="TelZipCode">
职 务：
<input type="text" name="keyword"></td>
</tr>
<tr bgcolor="#f6f6f6">
<td width="300" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';> 备
注 ： </td>
<td width="523" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><textarea name="content" cols="40" rows="5"></textarea></td>
</tr>
<tr bgcolor="#f6f6f6">
<td colspan="2" bgcolor="#f6f6f6" onMouseOver=this.style.backgroundColor='#FAFBFC'; onMouseOut=this.style.backgroundColor=''; this.style.cursor='hand';><div align="center">
<input type="submit" name="Submit" value="添加">
<input type="reset" name="Submit2" value="清除">
</div></td>
</tr>
</table>
</form>
</body>
</html>
<%
Sub Addtelephone()
session("errormsg")=""
session("result")=""
if BigClassCN1 = "" or BigClassEN1 = "" then
errormsg=errormsg+"没有指定该电话号码的分类!!!<br>"
end if
if tel_number="" and TelOffice="" and TelMobile="" and TelHomeNumber="" then
errormsg=errormsg+"值班电话、办公电话、住宅电话、手机至少填写一项!!!<br>"
end if
session("errormsg")=errormsg
if errormsg="" then
set rs=Server.CreateObject("Adodb.Recordset")
sql="Select * From telephone"
rs.open sql,conn,1,3
rs.addnew
rs("BigClassCN1")=BigClassCN1
rs("BigClassEN1")=BigClassEN1
rs("BigClassCN")=BigClassCN
rs("BigClassEN")=BigClassEN
rs("SmallClassCN")=SmallClassCN
rs("SmallClassEN")=SmallClassEN
rs("SmallClassCN1")=SmallClassCN1
rs("SmallClassEN1")=SmallClassEN1
rs("OfficeNumber")=TelOffice
rs("tel_number")=tel_number
rs("HomeNumber")=TelHomeNumber
rs("content")=content
rs("date")=date
rs("keyword")=keyword
rs("author")=session("name")
rs("Name")=TelName
rs("NameEn")=TelNameEn
rs("Address")=TelAddress
rs("Mobile")=TelMobile
rs("ZipCode")=TelZipCode
rs.update
rs.close
set rs=nothing
session("result")="添加号码成功"
end if
End Sub
Sub Wran()
response.write result
%>
<link href="include/site.css" type="text/css" rel="stylesheet">
<p> </p>
<p> </p>
<p> </p>
<form method=post action="javascript:history.back()">
<table width="349" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#4397c5">
<tr bgcolor="#AED2E6" >
<td height="20"><b>
<%
if session("errormsg")<>"" then
response.write("操作错误")
else
response.write session("result")
end if
%>
</b></td>
</tr>
<tr align="center">
<td height="115" bgcolor="#FFFFFF">
<font color=red><%=session("errormsg")%></font>
<% if session("errormsg")<>"" then %>
<br><br><br>
<input type="button" value=" 返 回 " onclick="javascript:history.back()">
<% else %>
<br>按确定键返回继续添加<br><br>
<input type="submit" value=" 确 定 ">
<% end if %>
</td>
</tr>
</table>
</form>
<%
response.end
End Sub %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -