wm.sys_setup.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

   Content = Content & "<tr class=td2><td><strong>用户头像上传</strong></td><td>文件存贮目录：<input name='h17' type='text' value='" & WR_UpLoad(17) & "' style='width:150' maxlength='20'> 不要带 “/”或“\”<br>允许上传类型：<input name='h18' type='text' value='" & WR_UpLoad(18) & "' style='width:200' maxlength='50'> 用“|”隔开<br>允许上传大小：<input name='h19' type='text' value='" & WR_UpLoad(19) & "' style='width:80' maxlength='8'> K</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>商品/礼品文件上传</strong></td><td>文件存贮目录：<input name='h48' type='text' value='" & WR_UpLoad(48) & "' style='width:150' maxlength='20'> 不要带 “/”或“\”<br>允许上传类型：<input name='h49' type='text' value='" & WR_UpLoad(49) & "' style='width:200' maxlength='50'> 用“|”隔开<br>允许上传大小：<input name='h50' type='text' value='" & WR_UpLoad(50) & "' style='width:80' maxlength='8'> K</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>广告文件上传</strong></td><td>文件存贮目录：<input name='h38' type='text' value='" & WR_UpLoad(38) & "' style='width:150' maxlength='20'> 不要带 “/”或“\”<br>允许上传类型：<input name='h39' type='text' value='" & WR_UpLoad(39) & "' style='width:200' maxlength='50'> 用“|”隔开<br>允许上传大小：<input name='h40' type='text' value='" & WR_UpLoad(40) & "' style='width:80' maxlength='8'> K</td></tr>" & vbCrLf
   Content = Content & "<tr class=td3><td colspan=2><strong>电话等图片生成设置</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>图片生成组件</strong><br>请一定要选择服务器上已安装的组件(打√的)，如果您的服务器不支持(打×的)下列组件，请选择“关闭”</td><td><select name='h41'><option value='0'" & WRMPS.GetCheckVer("0", WR_UpLoad(41), 0) & ">关闭</option><option value='1'" & WRMPS.GetCheckVer("1", WR_UpLoad(41), 0) & ">AspJpeg组件   　" & WRMPS.GetDll("Persits.Jpeg") & "</option></select></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>电话等图片生成目录</strong></td><td><input name='h47' type='text' value='" & WR_UpLoad(47) & "' style='width:150' maxlength='20'> 不要带 “/”或“\”</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>字体颜色</strong></td><td><input name='h42' type='text' value='" & WR_UpLoad(42) & "' style='width:100' maxlength='20'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>字体大小</strong></td><td><input name='h43' type='text' value='" & WR_UpLoad(43) & "' style='width:50' maxlength='3'> PX</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>字体名称</strong></td><td><SELECT name='h44'><option value='宋体'" & WRMPS.GetCheckVer("宋体", WR_UpLoad(44), 0) & ">宋体</option><option value='楷体_GB2312'" & WRMPS.GetCheckVer("楷体_GB2312", WR_UpLoad(44), 0) & ">楷体</option><option value='新宋体'" & WRMPS.GetCheckVer("新宋体", WR_UpLoad(44), 0) & ">新宋体</option><option value='黑体'" & WRMPS.GetCheckVer("黑体", WR_UpLoad(44), 0) & ">黑体</option><option value='隶书'" & WRMPS.GetCheckVer("隶书", WR_UpLoad(44), 0) & ">隶书</option><OPTION value='Andale Mono'" & WRMPS.GetCheckVer("Andale Mono", WR_UpLoad(44), 0) & ">Andale Mono</OPTION><OPTION value='Arial'" & WRMPS.GetCheckVer("Arial", WR_UpLoad(44), 0) & ">Arial</OPTION><OPTION value='Arial Black'" & WRMPS.GetCheckVer("Arial Black", WR_UpLoad(44), 0) & ">Arial Black</OPTION><OPTION value='Book Antiqua'" & WRMPS.GetCheckVer("Book Antiqua", WR_UpLoad(44), 0) & ">Book Antiqua</OPTION><OPTION value='Century Gothic'" & WRMPS.GetCheckVer("Century Gothic", WR_UpLoad(44), 0) & ">Century Gothic</OPTION><OPTION value='Comic Sans MS'" & WRMPS.GetCheckVer("Comic Sans MS", WR_UpLoad(44), 0) & ">Comic Sans MS</OPTION><OPTION value='Courier New'" & WRMPS.GetCheckVer("Courier New", WR_UpLoad(44), 0) & ">Courier New</OPTION><OPTION value='Georgia'" & WRMPS.GetCheckVer("Georgia", WR_UpLoad(44), 0) & ">Georgia</OPTION><OPTION value='Impact'" & WRMPS.GetCheckVer("Impact", WR_UpLoad(44), 0) & ">Impact</OPTION><OPTION value='Tahoma'" & WRMPS.GetCheckVer("Tahoma", WR_UpLoad(44), 0) & ">Tahoma</OPTION><OPTION value='Times New Roman'" & WRMPS.GetCheckVer("Times New Roman", WR_UpLoad(44), 0) & ">Times New Roman</OPTION><OPTION value='Trebuchet MS'" & WRMPS.GetCheckVer("Trebuchet MS", WR_UpLoad(44), 0) & ">Trebuchet MS</OPTION><OPTION value='Script MT Bold'" & WRMPS.GetCheckVer("Script MT Bold", WR_UpLoad(44), 0) & ">Script MT Bold</OPTION><OPTION value='Stencil'" & WRMPS.GetCheckVer("Stencil", WR_UpLoad(44), 0) & ">Stencil</OPTION><OPTION value='Verdana'" & WRMPS.GetCheckVer("Verdana", WR_UpLoad(44), 0) & ">Verdana</OPTION><OPTION value='Lucida Console'" & WRMPS.GetCheckVer("Lucida Console", WR_UpLoad(44), 0) & ">Lucida Console</OPTION></SELECT></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>是否是粗体</strong></td><td><SELECT name='h45'><option value='0'" & WRMPS.GetCheckVer("0", WR_UpLoad(45), 0) & ">正常</option><option value='1'" & WRMPS.GetCheckVer("1", WR_UpLoad(45), 0) & ">粗体</option></SELECT></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>背景色</strong></td><td><input name='h46' type='text' value='" & WR_UpLoad(46) & "' style='width:100' maxlength='20'> </td></tr>" & vbCrLf
   Content = Content & "<tr class=td3><td colspan=2><strong>缩略图设置</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>生成缩略图组件</strong><br>请一定要选择服务器上已安装的组件(打√的)，如果您的服务器不支持(打×的)下列组件，请选择“关闭”</td><td><select name='h20'><option value='0'" & WRMPS.GetCheckVer("0", WR_UpLoad(20), 0) & ">关闭</option><option value='1'" & WRMPS.GetCheckVer("1", WR_UpLoad(20), 0) & ">AspJpeg组件   　" & WRMPS.GetDll("Persits.Jpeg") & "</option></select></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>生成方式</strong></td><td><input type=radio name=h21 value=1 onclick='javascript:bl.style.display="""";dx.style.display=""none""'" & WRMPS.GetCheckVer("1", WR_UpLoad(21), 1) & "> 按比例　<input type=radio name=h21 value=0 onclick='javascript:bl.style.display=""none"";dx.style.display=""""'" & WRMPS.GetCheckVer("0", WR_UpLoad(21), 1) & "> 按大小" & vbCrLf
   Content = Content & "<div id=bl"
   If Int(WR_UpLoad(21)) = 0 Then    Content = Content & " style='display:none'"
   Content = Content & ">比例：<input name='h22' type='text' value='" & WR_UpLoad(22) & "' style='width:50' maxlength='5'><br>如缩小原图的50%,请输入0.5</div>" & vbCrLf
   Content = Content & "<div id=dx"
   If Int(WR_UpLoad(21)) = 1 Then    Content = Content & " style='display:none'"
   Content = Content & ">缩略图宽度：<input name='h23' type='text' value='" & WR_UpLoad(23) & "' style='width:50' maxlength='5'> 象素<br>缩略图高度：<input name='h24' type='text' value='" & WR_UpLoad(24) & "' style='width:50' maxlength='5'> 象素<br>可只固定一项，另一项填0则按自动比列缩小</div>" & vbCrLf
   Content = Content & "</td></tr>" & vbCrLf
   Content = Content & "<tr class=td3><td colspan=2><strong>水印设置</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>图片水印组件</strong><br>请一定要选择服务器上已安装的组件(打√的)，如果您的服务器不支持(打×的)下列组件，请选择“关闭”</td><td><select name='h25'><option value='0'" & WRMPS.GetCheckVer("0", WR_UpLoad(25), 0) & ">关闭</option><option value='1'" & WRMPS.GetCheckVer("1", WR_UpLoad(25), 0) & ">AspJpeg组件   　" & WRMPS.GetDll("Persits.Jpeg") & "</option></select></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>坐标起点位置</strong></td><td><select name='h26'><option value='1'" & WRMPS.GetCheckVer("1", WR_UpLoad(26), 0) & ">左上</option><option value='2'" & WRMPS.GetCheckVer("2", WR_UpLoad(26), 0) & ">左下</option><option value='3'" & WRMPS.GetCheckVer("3", WR_UpLoad(26), 0) & ">居中</option><option value='4'" & WRMPS.GetCheckVer("4", WR_UpLoad(26), 0) & ">右上</option><option value='5'" & WRMPS.GetCheckVer("5", WR_UpLoad(26), 0) & ">右下</option></select><br>" & vbCrLf
   Content = Content & "图片X坐标：<input name='h36' type='text' value='" & WR_UpLoad(36) & "' style='width:50' maxlength='5'> 象素<br>" & vbCrLf
   Content = Content & "图片Y坐标：<input name='h37' type='text' value='" & WR_UpLoad(37) & "' style='width:50' maxlength='5'> 象素</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>水印类型</strong></td><td><input type=radio name=h27 value=1 onclick='javascript:wz.style.display="""";tp.style.display=""none""'" & WRMPS.GetCheckVer("1", WR_UpLoad(27), 1) & "> 文字效果　<input type=radio name=h27 value=2 onclick='javascript:wz.style.display=""none"";tp.style.display=""""'" & WRMPS.GetCheckVer("2", WR_UpLoad(27), 1) & "> 图片效果" & vbCrLf
   Content = Content & "<div id=wz"
   If Int(WR_UpLoad(27)) = 2 Then    Content = Content & " style='display:none'"
   Content = Content & ">水印文字信息：<input name='h28' type='text' value='" & WR_UpLoad(28) & "' style='width:200' maxlength='50'><br>" & vbCrLf
   Content = Content & "字体大小：<input name='h29' type='text' value='" & WR_UpLoad(29) & "' style='width:50' maxlength='3'> PX<br>" & vbCrLf
   Content = Content & "字体颜色：<input name='h30' type='text' value='" & WR_UpLoad(30) & "' style='width:100' maxlength='20'><br>" & vbCrLf
   Content = Content & "字体名称：<SELECT name='h31'><option value='宋体'" & WRMPS.GetCheckVer("宋体", WR_UpLoad(31), 0) & ">宋体</option><option value='楷体_GB2312'" & WRMPS.GetCheckVer("楷体_GB2312", WR_UpLoad(31), 0) & ">楷体</option><option value='新宋体'" & WRMPS.GetCheckVer("新宋体", WR_UpLoad(31), 0) & ">新宋体</option><option value='黑体'" & WRMPS.GetCheckVer("黑体", WR_UpLoad(31), 0) & ">黑体</option><option value='隶书'" & WRMPS.GetCheckVer("隶书", WR_UpLoad(31), 0) & ">隶书</option><OPTION value='Andale Mono'" & WRMPS.GetCheckVer("Andale Mono", WR_UpLoad(31), 0) & ">Andale Mono</OPTION><OPTION value='Arial'" & WRMPS.GetCheckVer("Arial", WR_UpLoad(31), 0) & ">Arial</OPTION><OPTION value='Arial Black'" & WRMPS.GetCheckVer("Arial Black", WR_UpLoad(31), 0) & ">Arial Black</OPTION><OPTION value='Book Antiqua'" & WRMPS.GetCheckVer("Book Antiqua", WR_UpLoad(31), 0) & ">Book Antiqua</OPTION><OPTION value='Century Gothic'" & WRMPS.GetCheckVer("Century Gothic", WR_UpLoad(31), 0) & ">Century Gothic</OPTION><OPTION value='Comic Sans MS'" & WRMPS.GetCheckVer("Comic Sans MS", WR_UpLoad(31), 0) & ">Comic Sans MS</OPTION><OPTION value='Courier New'" & WRMPS.GetCheckVer("Courier New", WR_UpLoad(31), 0) & ">Courier New</OPTION><OPTION value='Georgia'" & WRMPS.GetCheckVer("Georgia", WR_UpLoad(31), 0) & ">Georgia</OPTION><OPTION value='Impact'" & WRMPS.GetCheckVer("Impact", WR_UpLoad(31), 0) & ">Impact</OPTION><OPTION value='Tahoma'" & WRMPS.GetCheckVer("Tahoma", WR_UpLoad(31), 0) & ">Tahoma</OPTION><OPTION value='Times New Roman'" & WRMPS.GetCheckVer("Times New Roman", WR_UpLoad(31), 0) & ">Times New Roman</OPTION><OPTION value='Trebuchet MS'" & WRMPS.GetCheckVer("Trebuchet MS", WR_UpLoad(31), 0) & ">Trebuchet MS</OPTION><OPTION value='Script MT Bold'" & WRMPS.GetCheckVer("Script MT Bold", WR_UpLoad(31), 0) & ">Script MT Bold</OPTION><OPTION value='Stencil'" & WRMPS.GetCheckVer("Stencil", WR_UpLoad(31), 0) & ">Stencil</OPTION><OPTION value='Verdana'" & WRMPS.GetCheckVer("Verdana", WR_UpLoad(31), 0) & ">Verdana</OPTION><OPTION value='Lucida Console'" & WRMPS.GetCheckVer("Lucida Console", WR_UpLoad(31), 0) & ">Lucida Console</OPTION></SELECT><br>" & vbCrLf
   Content = Content & "是否是粗体：<input type=radio name=h32 value=1" & WRMPS.GetCheckVer("1", WR_UpLoad(32), 1) & "> 是　<input type=radio name=h32 value=0" & WRMPS.GetCheckVer("0", WR_UpLoad(32), 1) & "> 否" & vbCrLf
   Content = Content & "</div>" & vbCrLf
   Content = Content & "<div id=tp"
   If Int(WR_UpLoad(27)) = 1 Then    Content = Content & " style='display:none'"
   Content = Content & ">" & vbCrLf
   Content = Content & "图片地址：<input name='h33' type='text' value='" & WR_UpLoad(33) & "' style='width:250' maxlength='50'> 如：/images/logo.gif<br>" & vbCrLf
   Content = Content & "图片透明度：<input name='h34' type='text' value='" & WR_UpLoad(34) & "' style='width:50' maxlength='5'> 50%请填0.5<br>" & vbCrLf
   Content = Content & "图片去底色色值：<input name='h35' type='text' value='" & WR_UpLoad(35) & "' style='width:100' maxlength='20'><br>" & vbCrLf
   Content = Content & "</div>" & vbCrLf
   Content = Content & "</td></tr>" & vbCrLf
   Content = Content & "</table>" & vbCrLf
   Content = Content & "</td></tr>" & vbCrLf

   Content = Content & "<tr ID=show3 Style='display:none'><td>" & vbCrLf
   Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
   Content = Content & "<tr class=td4><td colspan=2><strong>系统短消息设置</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>系统短消息功能</strong><br>全站通用，短消息内容和邮箱内容共享</td><td><input type=radio name=b17 value=1"&WRMPS.GetCheckVer(Int(WR_Mail(17)),1,1)&"> 启用　　<input type=radio name=b17 value=0"&WRMPS.GetCheckVer(Int(WR_Mail(17)),0,1)&"> 不启用</td></tr>" & vbCrLf
   Content = Content & "<tr class=td4><td colspan=2><strong>系统邮件设置</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td width='35%'><strong>邮件发送组件</strong><br>请一定要选择服务器上已安装的组件(打√的)，如果您的服务器不支持(打×的)下列组件，请选择“无”，如选择“无”，系统中所有和邮件收发相关的功能将不可用</td><td width='65%'><select name='b5'><option value='NO'" & WRMPS.GetCheckVer(WR_Mail(5),"NO", 0) & ">无</option><option value='Jmail'" & WRMPS.GetCheckVer( WR_Mail(5),"Jmail", 0) & ">Jmail　　　" & WRMPS.GetDll("JMail.SmtpMail") & "</option><option value='Cdonts'" & WRMPS.GetCheckVer(WR_Mail(5),"Cdonts",  0) & ">Cdonts　 　" & WRMPS.GetDll("CDONTS.NewMail") & "</option><option value='AspEmail'" & WRMPS.GetCheckVer(WR_Mail(5), "AspEmail", 0) & ">AspEmail 　" & WRMPS.GetDll("Persits.MailSender") & "</option></select></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>发送邮件服务器(SMTP)</strong><br>用来发送邮件的SMTP服务器，不设置将不能发送邮件，如果你不清楚此参数含义，请联系你的空间商</td><td><input type=text name=b0 value="&WR_Mail(0)&" size=20></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>POP3账号</strong><br>如果你用“[e-mail]”这样的会员名登录时，请指明domain.com，否则将不能发送邮件</td><td><input type=text name=b1 value="&WR_Mail(1)&" size=20></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>POP3账号密码</strong></td><td><input type=password name=b2 value='"&WR_Mail(2)&"' size=20></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>电子邮件地址</strong></td><td><input type=text name=b3 value='"&WR_Mail(3)&"' size=20></td></tr>" & vbCrLf
   Content = Content & "<tr class=td4><td colspan=2><strong>邮件消息内容设置</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>注册欢迎内容</strong></td><td><textarea name=b6 cols=50 rows=5>"&WR_Mail(6)&"</textarea></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>取回密码内容</strong></td><td><textarea name=b7 cols=50 rows=5>"&WR_Mail(7)&"</textarea></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>信息回复内容</strong></td><td><textarea name=b8 cols=50 rows=5>"&WR_Mail(8)&"</textarea></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>店铺登记欢迎内容</strong></td><td><textarea name=b9 cols=50 rows=5>"&WR_Mail(9)&"</textarea></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>邮箱认证内容</strong></td><td><textarea name=b10 cols=50 rows=5>"&WR_Mail(10)&"</textarea></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>实名认证通过内容</strong></td><td><textarea name=b11 cols=50 rows=5>"&WR_Mail(11)&"</textarea></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>实名认证取消内容</strong></td><td><textarea name=b12 cols=50 rows=5>"&WR_Mail(12)&"</textarea></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>店铺营业执照认证通过内容</strong></td><td><textarea name=b13 cols=50 rows=5>"&WR_Mail(13)&"</textarea></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>店铺营业执照认证取消内容</strong></td><td><textarea name=b14 cols=50 rows=5>"&WR_Mail(14)&"</textarea></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>店铺点评提示内容</strong></td><td><textarea name=b15 cols=50 rows=5>"&WR_Mail(15)&"</textarea></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>店铺留言提示内容</strong></td><td><textarea name=b16 cols=50 rows=5>"&WR_Mail(16)&"</textarea></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>代理城市分站内容</strong></td><td><textarea name=b18 cols=50 rows=5>"&WR_Mail(18)&"</textarea></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>邮件内容结尾</strong></td><td><textarea name=b4 cols=50 rows=5>"&WR_Mail(4)&"</textarea></td></tr>" & vbCrLf
   Content = Content & "</table>" & vbCrLf
   Content = Content & "</td></tr>" & vbCrLf

   Content = Content & "<tr ID=show4 Style='display:none'><td>" & vbCrLf
   Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
   Content = Content & "<tr class=td4><td colspan=2><strong>会员注册设置</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td width='35%'><strong>是否开放新用户注册</strong></td><td width='65%'><input type=radio name=d0 value=1"&WRMPS.GetCheckVer(Int(WR_User(0)),1,1)&"> 开放　　<input type=radio name=d0 value=0"&WRMPS.GetCheckVer(Int(WR_User(0)),0,1)&"> 关闭</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>用户名长度</strong><br>格式：<strong>3|20</strong><br>最小不能小于1，最大不能超过50</td><td><input type=text name=d3 size=20 value='"&WR_User(3)&"'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>用户密码长度</strong><br>格式：<strong>3|20</strong><br>最小不能小于1，最大不能超过50</td><td><input type=text name=d4 size=20 value='"&WR_User(4)&"'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>同一IP注册间隔时间</strong><br>单位：分钟<br>如不想限制可填写0</td><td><input type=text name=d5 size=20 value='"&WR_User(5)&"'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>注册需要管理员认证</strong><br></td><td><input type=radio name=d7 value=0"&WRMPS.GetCheckVer(Int(WR_User(7)),0,1)&"> 开启　　<input type=radio name=d7 value=1"&WRMPS.GetCheckVer(Int(WR_User(7)),1,1)&"> 关闭</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>禁止注册的会员名</strong><br>每个会员名用回车分割开</td><td><textarea name=d8 cols=50 rows=5>"&WR_User(8)&"</textarea></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>用户注册欢迎邮件</strong><br>确认您的站点支持发送mail</td><td><input type=radio name=d1 value=1"&WRMPS.GetCheckVer(Int(WR_User(1)),1,1)&"> 开启　　<input type=radio name=d1 value=0"&WRMPS.GetCheckVer(Int(WR_User(1)),0,1)&"> 关闭</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>会员取回密码次数限制</strong><br>0则表示无限制，若取回问答错误超过此限制，则停止至24小时后才能再次使用取回密码功能。</td><td><input type=text name=d2 size=20 value='"&WR_User(2)&"'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>找回密码通知邮件</strong><br>确认您的站点支持发送mail<br>选则开启则用户找回密码后，新的密码将通过邮件方式发送给用户</td><td><input type=radio name=d6 value=1"&WRMPS.GetCheckVer(Int(WR_User(6)),1,1)&"> 开启　　<input type=radio name=d6 value=0"&WRMPS.GetCheckVer(Int(WR_User(6)),0,1)&"> 关闭</td></tr>" & vbCrLf
   Content = Content & "</table>" & vbCrLf
   Content = Content & "</td></tr>" & vbCrLf