📄 addfriend.asp
字号:
<!--#include file="connaddress.asp"-->
<%
if session("user")="" then
response.write"<SCRIPT language=JavaScript>alert('登入超时或者你非法登入,请重新登入');"
response.write"window.location.href='../err.asp'</SCRIPT>"
end if
Function IsEmail(sCheckEmail)
Dim sEmail, nAtLoc
IsEmail = True
sEmail = Trim(sCheckEmail)
nAtLoc = InStr(1, sEmail, "@") 'Location of "@"
If Not (nAtLoc > 1 And (InStrRev(sEmail, ".") > nAtLoc + 1)) Then
IsEmail = False
ElseIf InStr(nAtLoc + 1, sEmail, "@") > nAtLoc Then
IsEmail = False
ElseIf Mid(sEmail, nAtLoc + 1, 1) = "." Then
IsEmail = False
ElseIf InStr(1, Right(sEmail, 2), ".") > 0 Then
IsEmail = False
End If
End Function
if request("action")="addfriend" then
user=session("user")
groupname=request.form("typename")
fname=trim(request("fname"))
fbirthday=trim(request("fbirthday"))
femail=trim(request("femail"))
foicq=trim(request("foicq"))
ficq=trim(request("ficq"))
fphone=trim(request("fphone"))
fmobile=trim(request("fmobile"))
faddress=trim(request("faddress"))
fworkaddr=trim(request("fworkaddr"))
fhomeaddr=trim(request("fhomeaddr"))
finfo=trim(request("finfo"))
err=false
if trim(fname)="" or len(trim(fname))<2 then
errstr="好友姓名有误，可能为空或长度不对，请重写"
err=true
elseif trim(fbirthday)<>"" and len(trim(fbirthday))<8 then
errstr="好友生日有误，可能为空或长度不对，请重写"
err=true
elseif trim(femail)="" or isemail(trim(femail))=false then
errstr="好友email有误，可能为空或格式不对，请重写"
err=true
elseif trim(foicq)<>"" and not isnumeric(foicq) then
errstr="还有不是数字的OICQ，老大，你帮我申请一个吧！"
err=true
elseif trim(ficq)<>"" and not isnumeric(ficq) then
errstr="还有不是数字的OICQ，老大，你帮我申请一个吧！"
err=true
elseif trim(fmobile)<>"" and not isnumeric(fmobile) then
errstr="他(她)的移动电话不全是数字，我没听说过哦，只好你重写！"
err=true
else
if fbirthday="" then
fbirthday="没填"
end if
if foicq="" then
foicq="没填"
end if
if ficq="" then
ficq="没填"
end if
if fphone="" then
fphone="没填"
end if
if fmobile="" then
fmobile="没填"
end if
if faddress="" then
faddress="没填"
end if
if fworkaddr="" then
fworkaddr="没填"
end if
if fhomeaddr="" then
fhomeaddr="没填"
end if
if finfo="" then
finfo="没填"
end if
end if
if err=false then
SQL = "INSERT INTO address(user,typename,fname,fbirthday,femail,foicq,ficq,fphone,fmobile,faddress,fworkaddr,fhomeaddr,finfo)VALUES('"&user&"','"&groupname&"','"&fname&"','"&fbirthday&"','"&femail&"','"&foicq&"','"&ficq&"','"&fphone&"','"&fmobile&"','"&faddress&"','"&fworkaddr&"','"&fhomeaddr&"','"&finfo&"')"
conn.Execute(sql)
sql="update type set count=count+1 where typename='"&groupname&"' and user='"&user&"'"
conn.execute(sql)
conn.close
set conn=nothing
errstr="添加成功，以下你输入的信息"
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>添加用户</title>
<link rel="stylesheet" href="../index.css">
</head>
<body background="image/bg.gif">
<br>
<form action="addfriend.asp" method=post name=form1>
<table width=100%>
<tr><td colspan="2"><font color=red><%=errstr%></font></td></tr>
<tr><td width=20%>朋友姓名：</td>
<td><% if fname="" then %><input type=text size=8 name="fname" value=""><%else%><%=fname%><%end if%></td></tr>
<tr><td width=20%>朋友生日：</td>
<td><% if fbirthday="" then%><input type=text size=10 name="fbirthday" value="">格式(:81-01-31)<%else%><%=fbirthday%><% end if%></td></tr>
<tr><td width=20%>朋友email：</td>
<td><% if femail="" then %><input type=text size=10 name="femail" value=""><%else%><%=femail%><%end if%></td></tr>
<tr><td width=20%>朋友oicq：</td>
<td><% if foicq="" then %><input type=text size=10 name="foicq" value=""><%else%><%=foicq%><%end if%></td></tr>
<tr><td width=20%>朋友icq：</td>
<td><% if ficq="" then %><input type=text size=10 name="ficq" value=""><%else%><%=ficq%><% end if%></td></tr>
<tr><td width=20%>固定电话：</td>
<td><% if fphone="" then %><input type=text size=13 name="fphone" value="">格式:(0791-3848248)<%else%><%=fphone%><% end if%></td></tr>
<tr><td width=20%>移动电话：</td>
<td><% if fmobile="" then %><input type=text size=13 name="fmobile" value="">如:13879111111<%else%><%=fmobile%><%end if%></td></tr>
<tr><td width=20%>工作地址：</td>
<td><% if faddress="" then %><input type=text size=20 name="faddress" value=""><%else%><%=faddress%><%end if%></td></tr>
<tr><td width=20%>工作地点：</td>
<td><% if fworkaddr="" then %><input type=text size=10 name="fworkaddr" value="">如:南昌<%else%><%=fworkaddr%><%end if%></td></tr>
<tr><td width=20%>家庭住址：</td>
<td><% if fhomeaddr="" then %><input type=text size=20 name="fhomeaddr" value=""><%else%><%=fhomeaddr%><%end if%></td></tr>
<tr><td width=20% valign=top>其它信息：</td>
<td><% if finfo="" then %><textarea name="finfo" rows="5" cols="20" onmouseover="window.document.form1.finfo.select();"><%=request("finfo")%></textarea></td></tr>
<tr><td></td><td><input type=hidden name="action" value="addfriend">
<input type=hidden name="typename" value=""><%else%><%=finfo%><%end if%></td></tr>
<tr><td width=30%></td><td><input type=submit value="确定"></td></tr>
</table></form><br><br><br><br>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -