<%
if session("loginok")<>"yes" then
response.write""
response.end
end if
%>
<%
if request("action")="add" then
If Request("id")<>"" Then
sql="select * from site where id="&Request("id")&""
Else
sql="select * from site"
End If
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
If Request("id")="" Then
rs.addnew
End If
rs("CompanyName")=trim(request("CompanyName"))
rs("sub_add")=trim(request("sub_add"))
rs("sub_tel")=trim(request("sub_tel"))
rs("sub_mail")=trim(request("sub_mail"))
rs("sub_qq")=trim(request("sub_qq"))
rs("wangwang")=trim(request("wangwang"))
rs("sub_mail_smtp")=trim(request("sub_smtp"))
rs("sub_mail_rec")=trim(request("sub_rec"))
rs("sub_mail_add")=trim(request("sub_add"))
rs("sub_mail_id")=trim(request("sub_id"))
rs("sub_mail_pwd")=trim(request("sub_pwd"))
rs("sub_mob_tel")=trim(request("sub_mob_tel"))
rs("sub_mob_sms")=trim(request("sub_mob_sms"))
rs("sub_date")=now()
rs.UpDate()
rs.close()
response.Write ""
end if
%>
<%
xsyc="1,0,0,0" '网站信息,地理位置,邮件信息,手机网站配置
xy=split(xsyc,",")
xsyc01="1,1,1,1,0" '地址,电话,邮箱,QQ,淘宝旺旺
xy01=split(xsyc01,",")
sql="select top 1 * from site"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
If not rs.eof Then
bedit = true
Else
bedit = false
End If
%>
<%
rs.close
set rs=nothing
%> -size: 9pt">