📄 tem_contacts_inc.asp
字号:
elseif len(remark)>250 then
founderr=true
errinfo=errinfo&"<li>备注不能超过250个字符<br>"
end If
End Sub
Sub coninfo_sqltable(types)
rs("user_id") = user25175(0)
rs("type_id") = type_id
rs("name") = name
rs("sex") = sex
rs("age") = age
rs("tel_home") = tel_home
rs("tel_work") = tel_work
rs("tel_hand") = tel_hand
rs("address_home") = address_home
rs("address_house") = address_house
rs("company") = company
rs("email") = email
rs("oicq") = oicq
rs("icq") = icq
rs("msn") = msn
rs("homepage") = homepage
rs("photo") = photo
rs("photo_width") = photo_width
rs("photo_height") = photo_height
rs("grade") = grade
rs("remark") = remark
End Sub
Function Contacts_names(Contacts_nos)
Sql_Lists="Contacts_name"
Sql_tables="Contacts_type"
Sql_Conditions=" user_id="&user25175(0)&" and id="&Contacts_nos
sql=Sqlinfo(Sql_Lists,Sql_tables,Sql_Conditions,Sql_Sortings,Sql_Orders,Sql_Additional)
Contacts_na = connopen(sql)
If isArray(Contacts_na) Then
Contacts_names="<span>"&Contacts_na(0,0)&"</span>"
Else
Contacts_names="<span>无分组</span>"
End If
End Function
Function Contacts_select(nos)
Contacts_select=""
sql=Sqlinfo("id,Contacts_name","Contacts_type"," user_id="&user25175(0),"","","")
fun_cel = connopen(sql)
If IsNull(nos) Or Not IsNumeric(nos) Then nos= 0
Contacts_select=Contacts_select&"<option value=""0"" "
If Int(nos)=0 Then Contacts_select=Contacts_select & " selected "
Contacts_select=Contacts_select&">请选择...</option>"
If isArray(fun_cel) Then
For i=0 To UBound(fun_cel,2)
Contacts_select=Contacts_select&"<option value="""&fun_cel(0,i)&""" "
If Int(fun_cel(0,i))=Int(nos) Then Contacts_select=Contacts_select & " selected "
Contacts_select=Contacts_select&">"&fun_cel(1,i)&"</option>"
Next
Else
Contacts_select=" "
End If
End Function
Function looktab()
dimarr "Gender"
looktab="<div id='freinfo'><h1><span>"&rs("name")&"</span>"
if rs("grade")=0 then
looktab = looktab & "[普通] "
else
looktab = looktab & "[重要] "
end if
looktab = looktab & arr_Gender(rs("sex"))&" "&rs("age")&"岁"&_
"</h1>"&_
"<ul><li class='pic'>"
if rs("photo")="-" then
looktab = looktab & "<img src='images/nophoto.gif' border='0'>"
else
if rs("photo_width")=0 then
looktab = looktab & "<img src=''&rs('photo')&'' border='0'>"
else
looktab = looktab & "<img src=''&rs('photo')&'' border='0' width=''&rs('photo_width')&'' height='"&rs("photo_height")&"'>'"
end if
end if
looktab = looktab & "</li>"&_
"<li>家庭/住所电话："&rs("tel_home")&"</li> "&_
"<li>工作电话："&rs("tel_work")&"</li>"&_
"<li>私人手机："&rs("tel_hand")&"</td>"&_
"<li>家庭地址："&rs("address_home")&"</li>"&_
"<li>住所地址："&rs("address_house")&"</li>"&_
"<li>工作单位："&rs("company")&"</li>"&_
"<li>OICQ："&rs("oicq")&"</li>"&_
"<li>ICQ："&rs("icq")&"</li>"&_
"<li>MSN："&rs("msn")&"</li>"&_
"<li>邮箱：<a href='mailto:"&rs("email")&"'>"&rs("email")&"</a></li>"&_
"<li>网页："&rs("homepage")&"</li>"&_
"<li>备注："&rs("remark")&"</li></ul>"&_
"<h2><a href='javascript:history.go(-1)'>返回</a> "&_
" <a href='Contacts_info.asp?action=edit&id="&id&"'>编辑</a> "&_
" <a href='Contacts_info.asp?action=del&id="&id&"'> 删除</a></h2> "&_
"</div>"
End Function
Function addtab()
addtab="<div id='contacts'><h1>通讯录资料添加</h1>"&_
"<table width='95%' border='0' align='center' cellpadding='0' cellspacing='0' class='tab_add'>"&_
" <form method='POST' action='contacts_info.asp?action=save' name='contacts_add'>"&_
" <tr>"&_
" <th colspan='2' class='line_title'>基本信息</th>"&_
" </tr><tr>"&_
" <th>分 类</th>"&_
" <td><SELECT NAME='type_id'>"&Contacts_select(0)&"</SELECT></td>"&_
" </tr><tr>"&_
" <th>姓 名：</th>"&_
" <td><input name='name' size='20'><font color='#FF0000'>*</font></td>"&_
" </tr><tr>"&_
" <th>年 龄：</th>"&_
" <td><input name='age' size='10'></td>"&_
" </tr><tr>"&_
" <th>性 别：</th>"&_
" <td><select size='1' name='sex'>"&_
" <option value='1'>男</option>"&_
" <option value='2'>女</option></select></td>"&_
" </tr><tr>"&_
" <th colspan='2' class='line_title'>联系信息</th>"&_
" </tr><tr>"&_
" <th>家庭/住所电话：</th>"&_
" <td><input type='text' name='tel_home' size='20' value=''></td>"&_
" </tr><tr>"&_
" <th>工作电话：</th>"&_
" <td><input type='text' name='tel_work' size='20' value=''></td>"&_
" </tr><tr>"&_
" <th>私人手机：</th>"&_
" <td><input type='text' name='tel_hand' size='20' value=''></td>"&_
" </tr><tr>"&_
" <th>家庭地址：</th>"&_
" <td><input name='address_home' size='40'></td>"&_
" </tr><tr>"&_
" <th>住所地址：</th>"&_
" <td><input name='address_house' size='40'></td>"&_
" </tr><tr>"&_
" <th>工作单位：</th>"&_
" <td><input type='text' name='company' size='40' value=''></td>"&_
" </tr><tr>"&_
" <th>邮 箱：</th>"&_
" <td><input type='text' name='email' size='40' value=''></td>"&_
" </tr><tr>"&_
" <th>QQ：</th>"&_
" <td><input type='text' name='oicq' size='20' value=''></td>"&_
" </tr><tr>"&_
" <th>ICQ：</th>"&_
" <td><input type='text' name='icq' size='20' value=''> </td>"&_
" </tr><tr>"&_
" <th>MSN：</th>"&_
" <td><input name='msn' size='20'></td>"&_
" </tr><tr>"&_
" <th>网 页：</th>"&_
" <td><input name='homepage' size='40'></td>"&_
" </tr><tr>"&_
" <th colspan='2' class='line_title'>其它信息</th>"&_
" </tr><tr>"&_
" <th>照 片：</th>"&_
" <td><input type='text' name='photo' size='40' value=''> </td>"&_
" </tr><tr>"&_
" <th rowspan='2'>照片大小：</th>"&_
" <td>宽<input type='text' name='photo_width' size='5' value=''>（若使用默认宽高则不填）</td>"&_
" </tr><tr>"&_
"<td>高<input type='text' name='photo_height' size='5' value=''></td>"&_
" </tr><tr>"&_
" <th>关系等级：</th>"&_
" <td><select size='1' name='grade'>"&_
" <option selected value='0'>普通</option>"&_
" <option value='1'>重要</option></select></td>"&_
" </tr><tr>"&_
" <th>备 注：</th>"&_
" <td><textarea rows='5' name='remark' cols='40'></textarea></td>"&_
" </tr>"&_
" </form>"&_
" </table>"&_
"<h2><input type='button' value='添 加' name='B1' class='buttons' onclick='document.contacts_add.submit();'> "&_
"<input type='button' value='重 写' name='B2' class='buttons' onclick='document.contacts_add.reset();'> "&_
"<input type='button' value='返 回' name='B2' onclick='javascript:history.go(-1)' class='buttons'></h2>"&_
"</div>"
End Function
Function edittab()
Sql_Lists="type_id,name,sex,age,tel_home,tel_work,tel_hand,address_home,address_house,company,email,oicq,icq,msn,homepage,photo,photo_width,photo_height,grade,remark"
sql=Sqlinfo(Sql_Lists,"Contacts_info"," ID = "&id&" and user_id="&user25175(0),"","","")
rs_edit = connopen(sql)
edittab = "<div id='contacts'><h1>通讯录资料修改</h1>"
If isArray(rs_edit) Then
edittab = edittab & "<table width='95%' border='0' align='center' cellpadding='0' cellspacing='0' class='tab_add'>"&_
" <form method='POST' action='contacts_info.asp?action=mod&id="&id&"' name='contacts_edit'>"&_
" <tr>"&_
" <th colspan='2' class='line_title'>基本信息</th>"&_
" </tr><tr>"&_
" <th>分 类</th>"&_
" <td><SELECT NAME='type_id'>"&Contacts_select(rs_edit(0,0))&"</SELECT></td>"&_
" </tr><tr>"&_
" <th>姓 名</th>"&_
" <td><input name='name' size='20' value="&rs_edit(1,0)&"></td>"&_
" </tr><tr>"&_
" <th>年 龄</th>"&_
" <td><input name='age' size='10' value="&rs_edit(3,0)&"></td>"&_
" </tr><tr>"&_
" <th>性 别</th>"&_
" <td><select size='1' name='sex'>"&_
" <option value='1' "
if rs_edit(2,0)=1 Then edittab = edittab & " selected "
edittab = edittab & ">男</option>"&_
" <option value='2' "
if rs_edit(2,0)=2 then edittab = edittab & " selected "
edittab = edittab & ">女</option></select></td>"&_
" </tr><tr>"&_
" <th colspan='2' class='line_title'>联系信息</th>"&_
" </tr><tr>"&_
" <th>家庭/住所电话</th>"&_
" <td><input type='text' name='tel_home' size='20' value="&rs_edit(4,0)&"></td>"&_
" </tr><tr>"&_
" <th>工作电话</th>"&_
" <td><input type='text' name='tel_work' size='20' value="&rs_edit(5,0)&"></td>"&_
" </tr><tr>"&_
" <th>私人手机</th>"&_
" <td><input type='text' name='tel_hand' size='20' value="&rs_edit(6,0)&"></td>"&_
" </tr><tr>"&_
" <th>家庭地址</th>"&_
" <td><input name='address_home' size='40' value="&rs_edit(7,0)&"></td>"&_
" </tr><tr>"&_
" <th>住所地址</th>"&_
" <td><input name='address_house' size='40' value="&rs_edit(8,0)&"></td>"&_
" </tr><tr>"&_
" <th>工作单位</th>"&_
" <td><input type='text' name='company' size='40' value="&rs_edit(9,0)&"></td>"&_
" </tr><tr>"&_
" <th>邮 箱</th> "&_
" <td><input type='text' name='email' size='40' value="&rs_edit(10,0)&"></td>"&_
" </tr><tr>"&_
" <th>QQ</th>"&_
" <td><input type='text' name='oicq' size='20' value="&rs_edit(11,0)&"></td>"&_
" </tr><tr>"&_
" <th>ICQ</th>"&_
" <td><input type='text' name='icq' size='20' value="&rs_edit(12,0)&"></td>"&_
" </tr><tr>"&_
" <th>MSN</th>"&_
" <td><input name='msn' size='20' value="&rs_edit(13,0)&"></td>"&_
" </tr><tr>"&_
" <th>网 页</th> "&_
" <td><input name='homepage' size='40' value="&rs_edit(14,0)&"></td>"&_
" </tr><tr>"&_
" <th colspan='2' class='line_title'>其它信息</th>"&_
" </tr><tr>"&_
" <th>照 片</th>"&_
" <td><input type='text' name='photo' size='40' value="&rs_edit(15,0)&"></td>"&_
" </tr><tr>"&_
" <th rowspan='2'>照片大小</th>"&_
" <td>宽<input type='text' name='photo_width' size='5' value="&rs_edit(16,0)&">（若使用默认宽高则不填或填0）</td>"&_
" </tr><tr>"&_
" <td>高<input type='text' name='photo_height' size='5' value="&rs_edit(17,0)&"></td>"&_
" </tr><tr>"&_
" <th>关系等级</th>"&_
" <td><select size='1' name='grade'>"&_
" <option value='0'"
if rs_edit(18,0)=0 Then edittab =edittab & "selected "
edittab =edittab & ">普通</option>"&_
" <option value='1' "
if rs_edit(18,0)=1 then edittab =edittab & "selected "
edittab =edittab & ">重要</option>"&_
" </select></td>"&_
" </tr><tr>"&_
" <th>备 注</th> "&_
" <td><textarea rows='5' name='remark' cols='40'>"&rs_edit(19,0)&"</textarea></td>"&_
" </tr>"&_
" </form>"&_
" </table>"&_
"<h2><input type='button' value='编 辑' name='B1' class='buttons' onclick='document.contacts_edit.submit();'> "&_
"<input type='button' value='重 写' name='B2' class='buttons' onclick='document.contacts_edit.reset();'> "&_
"<input type='button' value='返 回' name='B2' onclick='javascript:history.go(-1)' class='buttons'></h2>"&_
"</div>"
Else
edittab=msg("err","<li>参数错误","","")
End If
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -