📄 mobanborn.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>生成普通会员页</title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #E4EDF9;
}
body,td,th {
font-size: 12px;
}
-->
</style>
</head>
<body>
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<!--#include file="../../inc/filesystem.asp"-->
<%
if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>"
response.end
end if
'权限限制^^^^^^^^^^^^^^^^^^^^
dim ishavegant
ishavegant=false
in_str=split(session("masterflag"),",")
for each ins in in_str
if trim(ins)="12" then
ishavegant=true
end if
next
if ishavegant=false then
response.redirect "../err.asp"
response.end
end if
'获取要生成的条数…………………………………………………………
If Request("page")<>"" Then
If Cint(Request("page"))<1 Then
currentPage=1
Else
currentPage=Cint(Request("page"))
End If
Else
currentPage=1
End If
'取出默认模板-----------------------------------------------
set rsmo=server.CreateObject("adodb.recordset")
sqlmo="select id from yixiang_userskin where isdefault=1"
rsmo.open sqlmo,conn,1,1
if rsmo.eof then
url=0
response.Write("对不起！当前无默认的会员模版供生成！")
response.End()
else
url=rsmo("id")
session("url")=url
rsmo.close
end if
'-------------------------------------------------------------
' '………………………………………………………………………………
userid=Replace_Text(request("userid"))
if request("userid")="" then
userid=0
end if
MaxPerPage=1
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from wygkcn_corporation where id in ("&userid&") order by idate asc"
rs.Open sql,conn,1,3
If not rs.Eof Then
rs.pagesize=MaxPerPage
mpage=rs.pagecount '得到总页数
If currentPage>mpage Then
session("url")=""
Response.Write "<script language='vbscript'>sub window_onload() loadopener() end sub</script><br><br><br> <b>生成完毕:共生成会员默认模板<font color=red>"&mpage&"</font>个 完成时间："&now()&"</b> <a href='#' onclick='javascript:window.close();'>关闭</a><script>function loadopener(){window.opener.location.reload();}</script>"
Response.end
End If
rs.move (currentPage-1)*MaxPerPage
If mpage>=currentPage Then
id=rs("id")
username=rs("user")
session("autoid")=id
session("autouser")=username
End If
End If
going= cint(((mpage-currentPage)/mpage)*100)
Response.Write "<br><center>"&(100-going)&"%</center><br><table align=center width=600 bgcolor=white><tr><td height=5 bgcolor=red width='"&(100-going)&"%'><td width=200 ></td></tr></table><br><br><br> <b>当前生成[<font color=red>"&username&"</font>]的默认模板页;<br><br> 已生成/要生成的页面条数:<font color=#FF0000>"¤tPage-1&"</font>/<font color=#FF0000><b>"&mpage&"</b></font>个"
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
goname=session("autouser")
%>
<!--#include file="dns.asp"-->
<!--#include file="webborn.asp"-->
<%
conn.execute("update [wygkcn_corporation] set yx_userskin="&url&",weburl_2='"&username&"' where id="&id)
session("autoid")=""
session("autouser")=""
Response.Write "<meta http-equiv=Refresh content='0; URL=mobanborn.asp?userid="&userid&"&url="&url&"&page="¤tPage+1&"'>"
Set rs=Nothing
conn.Close
Set conn=Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -