<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from snsn_config",conn,1,1
webname=rs("webname")
weburl=trim(rs("weburl"))
weblogo=trim(rs("weblogo"))
webemail=trim(rs("webemail"))
gsmc=trim(rs("gsmc"))
gsdz=trim(rs("gsdz"))
gsdh=trim(rs("gsdh"))
gscz=trim(rs("gscz"))
gsyb=trim(rs("gsyb"))
kfqq=trim(rs("kfqq"))
jfen_qian=rs("jfen_qian")
tjr_qian=rs("tjr_qian")
zonline=rs("online")
zonlinedate=rs("onlinedate")
rs.close
set rs=nothing
fmail="r2no1@163.com"   '发件人的E-MAIL地址
umail="r2no1"     '登录邮件服务器所需的用户名
pmail="j9ang1r2"     '登录邮件服务器所需的密码
smail="smtp.163.com"     '执行邮件发送（通过邮件服务器地址）

up1="jpg|gif|swf|mid|wma|mp3|wav|rm|rma|wmv|avi" '上传类型
up2=1 ' 设置组件类型
up3=999 '设置预览图片组件类型 组件(0=CreatePreviewImage组件，1=AspJpegV1.2 ,2=SoftArtisans ImgWriter V1.21)
up4=12 '设置水印文字字体大小
up5=0 '设置水印文字是否粗体 0否1粗
up6=50'设置水印图片或文字区域宽度
up7=50'设置水印图片或文字区域高度
up8=0'"0" =左上，"1"=左下,"2"=居中,"3"=右上,"4"=右下
up9=0'"0"=固定缩小，"1"=等比例缩小
up10=80'设置预览图片宽度
up11=80'设置预览图片高度
up12=5000 '上传文件最大
up13="动感购物" '水印文字
up14="#ff0000"'设置水印文字颜色
up15="宋体"'设置水印文字字体格式
up16=0.8'设置水印透明度 如60%请填写0.6
up17="#cccccc"'透明度颜色设置 保留为空则水印图片不去除底色
uppic1="/web/midi/"
uppic2="/uploadpic/"
uppic3="/web/upimg/"
uppic4="/photo/upimg/"
%>