mansys.asp

图书管理系统是用VC++做的有兴趣的可以来共同研究研究

                      <input type="hidden" name="set" value="ok">
                    </p>
                  </form>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<br>
<table width="<%=lingfengnet_ms_web_w%>" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td></td>
  </tr>
</table>
<div align="center"> </div>
</body>
</html>
<%
call htmlend()
%>

<%
response.end
else
call setsys()
end if
sub setsys()
%>
<!--#include file="inc/chkform.asp"-->
<%
'*******************************************************************************
'*以下为LF Message SyStem系统设置请按自己的需要设置，设置前最好备份一下原文件！*
'* 自由岭锋（http://lingfengnet.com)                                           *
'*******************************************************************************
writeStr=writeStr & "lingfengnet_ms_web_name=" &"""" & request.form("lingfengnet_ms_web_name") & """" & chr(13) & chr(10) '网站的名称
writeStr=writeStr & "lingfengnet_ms_web_url=" & """" &request.form("lingfengnet_ms_web_url") & """"& chr(13) & chr(10) '网站的URL 
writeStr=writeStr & "lingfengnet_ms_sys_name=" & """" &request.form("lingfengnet_ms_sys_name") & """"& chr(13) & chr(10) '该系统起的名称
if len(request.form("lingfengnet_ms_web_css"))>15 then
lingfengnet_ms_web_css=left(right(request.form("lingfengnet_ms_web_css"),15),11)
writeStr=writeStr & "lingfengnet_ms_web_css=" & """" &lingfengnet_ms_web_css& """" & chr(13) & chr(10) '该系统的页面主题 
lingfengnet_ms_web_css_read=left(request.form("lingfengnet_ms_web_css"),(int(len(request.form("lingfengnet_ms_web_css")))-16))
writeStr=writeStr & "lingfengnet_ms_web_css_read=" &  """" &lingfengnet_ms_web_css_read& """"  & chr(13) & chr(10) '该系统的页面主题说明 
else
writeStr=writeStr & "lingfengnet_ms_web_css=" & """" &lingfengnet_ms_web_css& """" & chr(13) & chr(10) '该系统的页面主题 
writeStr=writeStr & "lingfengnet_ms_web_css_read=" &  """" &lingfengnet_ms_web_css_read& """"  & chr(13) & chr(10) '该系统的页面主题说明 
end if
writeStr=writeStr & "lingfengnet_ms_web_ad=" & request.form("lingfengnet_ms_web_ad") & chr(13) & chr(10) '广告类型 
writeStr=writeStr & "lingfengnet_ms_web_ad_url=" & """" &request.form("lingfengnet_ms_web_ad_url")& """" & chr(13) & chr(10) '广告类型信息 
if request.form("lingfengnet_ms_web_psor")="1" then
writeStr=writeStr & "lingfengnet_ms_web_w="&"""" &request.form("lingfengnet_ms_web_w")&"""" & chr(13) & chr(10) '该系统的页面宽度 
end if
if request.form("lingfengnet_ms_web_psor")="2" then
writeStr=writeStr & "lingfengnet_ms_web_w=" & request.form("lingfengnet_ms_web_w") & chr(13) & chr(10) '该系统的页面宽度 
end if
writeStr=writeStr & "lingfengnet_ms_web_bs=" & request.form("lingfengnet_ms_web_bs") & chr(13) & chr(10) '是否启用标示 
if lingfengnet_ms_web_bs=0 then
writeStr=writeStr & "lingfengnet_ms_web_bs_lx=" & request.form("lingfengnet_ms_web_bs_lx") & chr(13) & chr(10) '该系统的标示风格
end if
writeStr=writeStr & "lingfengnet_ms_web_top=" & request.form("lingfengnet_ms_web_top") & chr(13) & chr(10) '该系统的头部样式类别
if request.form("lingfengnet_ms_web_top")=1 and request.form("lingfengnet_ms_web_top_con")<>"" then
lingfengnet_ms_web_top_con_com=request.form("lingfengnet_ms_web_top_con")
lingfengnet_ms_web_top_con_com=replace(lingfengnet_ms_web_top_con_com,""& Chr(13) &"","")
lingfengnet_ms_web_top_con_com=replace(lingfengnet_ms_web_top_con_com,""& Chr(10) &"","")
lingfengnet_ms_web_top_con_com=replace(lingfengnet_ms_web_top_con_com,""& Chr(34) &"","")
writeStr=writeStr & "lingfengnet_ms_web_top_con=" & """" & lingfengnet_ms_web_top_con_com & """"& chr(13) & chr(10) '该系统的头部样式说明 
end if 
writeStr=writeStr & "lingfengnet_ms_how_filtrate=" & request.form("lingfengnet_ms_how_filtrate") & chr(13) & chr(10) '垃圾信息处理方式
writeStr=writeStr & "lingfengnet_ms_filtrate_word=" & """" &request.form("lingfengnet_ms_filtrate_word") & """"& chr(13) & chr(10) '被过滤的文字信息
writeStr=writeStr & "lingfengnet_ms_maxword=" & request.form("lingfengnet_ms_maxword") & chr(13) & chr(10) '允许发的留言正文最多的字数
writeStr=writeStr & "lingfengnet_ms_maxword_re=" & request.form("lingfengnet_ms_maxword_re") & chr(13) & chr(10) '允许发的留言回复的最多的字数
writeStr=writeStr & "db=" & """" &request.form("db") & """"& chr(13) & chr(10) '数据库名称
writeStr=writeStr & "lingfengnet_ms_messconten=" & request.form("lingfengnet_ms_messconten") & chr(13) & chr(10) '是否启动数据库加密
writeStr=writeStr & "lingfengnet_ms_admindb=" & request.form("lingfengnet_ms_admindb") & chr(13) & chr(10) '管理员资料存放方式
if request.form("lingfengnet_ms_admindb")=1 then
writeStr=writeStr & "lingfengnet_ms_adminname=" & """" &request.form("lingfengnet_ms_adminname") & """"& chr(13) & chr(10) '管理员姓名
if len(request.form("lingfengnet_ms_adminpass"))=32 then
writeStr=writeStr & "lingfengnet_ms_adminpass=" & """" & request.form("lingfengnet_ms_adminpass") & """"& chr(13) & chr(10) '管理员密码
else
writeStr=writeStr & "lingfengnet_ms_adminpass=" & """" &zylf_md5_32_pass(request.form("lingfengnet_ms_adminpass")) & """"& chr(13) & chr(10) '管理员密码
end if
writeStr=writeStr & "lingfengnet_ms_ipadminlead=" & request.form("lingfengnet_ms_ipadminlead") & chr(13) & chr(10) '总管理登陆来源控制
writeStr=writeStr & "lingfengnet_ms_noadminiplead=" & """" &request.form("lingfengnet_ms_noadminiplead") & """"& chr(13) & chr(10) '不允许总管理登陆的IP地址
writeStr=writeStr & "lingfengnet_ms_adminiplead=" & """" &request.form("lingfengnet_ms_adminiplead") & """"& chr(13) & chr(10) '允许总管理登陆的IP地址
writeStr=writeStr & "lingfengnet_ms_adminflg=" & request.form("lingfengnet_ms_adminflg") &  chr(13) & chr(10) '管理员权限
end if
writeStr=writeStr & "lingfengnet_ms_ipadmin=" &request.form("lingfengnet_ms_ipadmin") &  chr(13) & chr(10) '是否允许使用IP验证管理员
writeStr=writeStr & "lingfengnet_ms_proxylf=" & request.form("lingfengnet_ms_proxylf") &  chr(13) & chr(10) '是否允许用户使用代理服务器获得IP验证管理员
writeStr=writeStr & "lingfengnet_ms_user_admin_ip=" & """" &request.form("lingfengnet_ms_user_admin_ip") & """"& chr(13) & chr(10) '具有管理权限的IP。
writeStr=writeStr & "lingfengnet_ms_user_ippur=" & request.form("lingfengnet_ms_user_ippur") &  chr(13) & chr(10) '分配给使用IP验证管理员的权限
writeStr=writeStr & "lingfengnet_ms_mypagesize=" & request.form("lingfengnet_ms_mypagesize") & chr(13) & chr(10) '每页显示留言数
writeStr=writeStr & "lingfengnet_ms_mypagesize_info=" & request.form("lingfengnet_ms_mypagesize_info") & chr(13) & chr(10) '信息汇总每页显示信息数
writeStr=writeStr & "lingfengnet_ms_oklist=" & request.form("lingfengnet_ms_oklist") & chr(13) & chr(10) '合法登陆记录的天数
writeStr=writeStr & "lingfengnet_ms_errlist=" & request.form("lingfengnet_ms_errlist") & chr(13) & chr(10) '非法登陆记录的天数
writeStr=writeStr & "lingfengnet_ms_mbl=" & request.form("lingfengnet_ms_mbl") & chr(13) & chr(10) '数据库最大ID的位数
writeStr=writeStr & "lingfengnet_ms_pagemax=" & request.form("lingfengnet_ms_pagemax") & chr(13) & chr(10) '留言系统最大页数的位数
writeStr=writeStr & "lingfengnet_ms_ynallow=" & request.form("lingfengnet_ms_ynallow") & chr(13) & chr(10) '访问者来源控制
writeStr=writeStr & "lingfengnet_ms_noallowip=" & """" &request.form("lingfengnet_ms_noallowip") & """"& chr(13) & chr(10) '不仅允许访问IP
writeStr=writeStr & "lingfengnet_ms_allowip=" & """" &request.form("lingfengnet_ms_allowip") & """"& chr(13) & chr(10) '仅允许访问IP
writeStr=writeStr & "lingfengnet_ms_messguest=" & request.form("lingfengnet_ms_messguest") &  chr(13) & chr(10) '是否开启游客访问被授权公开的留言
writeStr=writeStr & "lingfengnet_ms_messadmin=" & request.form("lingfengnet_ms_messadmin") &  chr(13) & chr(10) '是否开放留言时的官方通知
lingfengnet_ms_messadmin_mess=request.form("lingfengnet_ms_messadmin_mess")
lingfengnet_ms_messadmin_mess=replace(lingfengnet_ms_messadmin_mess,""& Chr(13) &"","")
lingfengnet_ms_messadmin_mess=replace(lingfengnet_ms_messadmin_mess,""& Chr(10) &"","")
lingfengnet_ms_messadmin_mess=replace(lingfengnet_ms_messadmin_mess,""& Chr(34) &"","")
writeStr=writeStr & "lingfengnet_ms_messadmin_mess=" & """" & lingfengnet_ms_messadmin_mess & """"& chr(13) & chr(10) '添加留言时显示的官方信息
writeStr=writeStr & "lingfengnet_ms_messchina=" & request.form("lingfengnet_ms_messchina") &  chr(13) & chr(10) '是否开启姓名的中文验证
writeStr=writeStr & "lingfengnet_ms_ss=" & request.form("lingfengnet_ms_ss") &  chr(13) & chr(10) '是否开启姓名的中文验证
writeStr=writeStr & "lingfengnet_ms_messreg=" & request.form("lingfengnet_ms_messreg") &  chr(13) & chr(10) '是否开启验证码功能
writeStr=writeStr & "lingfengnet_ms_messdoor=" & request.form("lingfengnet_ms_messdoor") &  chr(13) & chr(10) '是否开启防骚扰功能
writeStr=writeStr & "lingfengnet_ms_messdoortimes=" & request.form("lingfengnet_ms_messdoortimes") &   chr(13) & chr(10) '防骚扰功能的间隔时间
writeStr=writeStr & "lingfengnet_ms_messdoorday=" & request.form("lingfengnet_ms_messdoorday") &  chr(13) & chr(10) '是否开启高级防骚扰功能
writeStr=writeStr & "lingfengnet_ms_messdoorday_times=" & request.form("lingfengnet_ms_messdoorday_times") &  chr(13) & chr(10) '高级防骚扰功能的限制次数
writeStr=writeStr & "lingfengnet_ms_refreshtime=" & request.form("lingfengnet_ms_refreshtime") &   chr(13) & chr(10) '首页自动刷新间隔时间
%>
<%
tpstr=replace(writestr,chr(13) & chr(10) ,"<br>")
tpstr="&lt;%<br>" & tpstr & "%&gt;"
writestr="<" & "%" & chr(13) & chr(10) & writestr & chr(13) & chr(10) & "%" & ">"
response.write tpstr
if IsObjInstalled("Scripting.FileSystemObject") then
toppath = Server.Mappath("inc/setup.asp")
Set fs = CreateObject("scripting.filesystemobject")
If Not Fs.FILEEXISTS(toppath) Then 
Set Ts = fs.createtextfile(toppath, True)
Ts.close
end if
Set Ts= Fs.OpenTextFile(toppath,2)
Ts.writeline (writeStr)
Ts.Close
Set Ts=Nothing
Set Fs=Nothing
Response.write "<script Language=Javascript>alert('"& lingfengnet_ms_language_Warning_mansys_1 &"');this.location.href=""mansys.asp""</script>"
else
Response.write "<script Language=Javascript>alert('"& lingfengnet_ms_language_Warning_mansys_2 &"');this.location.href=""mansys.asp""</script>"
end if
end sub
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
Function rrstr(str)
str="|" & str & "|"
str=replace(str,"||","|")
rrstr=str
End Function 
%>