📄 webmod.asp
字号:
<!--#include file="../head.asp"-->
<!--#include file="../checkrole.asp"-->
<%
call checkuser("qw")
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script Language="JavaScript">
function info(mylink)
{
window.open(mylink,'','top=50,left=120,width=555,height=500,scrollbars=yes')
}
function FormCheck()
{
var check=true;
for(var i=0;i<document.Form1.url.length;i++)
{
if (document.Form1.url[i].checked) {
check=false;
break;
}
}
}
</script>
<%
dim rstemp
set rstemp=conn.execute("select yx_userskin from [wygkcn_corporation] where id="&session("id"))
skinid=rstemp("yx_userskin")
rstemp.close
set rstemp=nothing
sql="select * from Yixiang_userskin where ispass=1 order by id desc "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
msg_per_page=9
rs.pagesize=msg_per_page
if not (rs.eof and rs.bof) then
totalrec=RS.RecordCount
if rs.recordcount mod msg_per_page=0 then
n=rs.recordcount\msg_per_page
else
n=rs.recordcount\msg_per_page+1
end if
currentpage=request("page")
If currentpage <> "" then
currentpage = cint(currentpage)
if currentpage < 1 then
currentpage = 1
end if
if err.number <> 0 then
err.clear
currentpage=1
end if
else
currentpage=1
End if
if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then
currentPage=1
end if
rs.absolutepage=currentpage
rowcount=rs.pagesize
end if
%>
<TABLE width=778 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD
style="BACKGROUND-POSITION: right 50%; BACKGROUND-IMAGE: url(i../mages/bg1.gif); BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: #ffffff"
vAlign=top align=middle> <TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR id=mod>
<TD width="74%"><IMG height=32 src="../images/webmod.gif" width=576
border=0 ></TD>
<TD width="26%" background="../images/info_bg.gif"> </TD>
</TR>
</TBODY>
</TABLE>
<TABLE class=content_border id=mod_s cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD align=middle><FORM method="POST" action="mod_save.asp" name="Form1" onSubmit="return FormCheck();">
<table border="0" cellpadding="0" cellspacing="10" style="border-collapse: collapse" width="100%" id="AutoNumber10">
<tr>
<%
j=1
do while not rs.eof and rowcount > 0
%>
<TD style="font-family: 宋体; font-size: 9pt; line-height: 13pt; letter-spacing: 0pt" width="192" align="center"> <TABLE border=2 borderColorDark=#660000 borderColorLight=#660000 cellPadding=0 cellSpacing=0 height=90 width=160 style="border-collapse: collapse; font-family:宋体; font-size:9pt" bordercolor="#111111">
<TR>
<TD align=middle height=77 onMouseOut="this.style.backgroundColor =''" onMouseOver="this.style.backgroundColor ='#c33313'" width="158" style="font-family: 宋体; font-size: 9pt; line-height: 13pt; letter-spacing: 0pt"> <a href="javascript:info("../../<%=rs("skinpic")%>")"> <IMG border=0 height=110 src="../../<%=rs("skinpic")%>" width=150 title="点击图片既可式进模版样行大图预览！"></a></TD>
</TR>
<TR bgColor=#c33313>
<TD width="158" height=22 align=middle bgcolor="#c33313" style="font-family: 宋体; font-size: 9pt; line-height: 13pt; letter-spacing: 0pt"> <INPUT class="f1 "name="url" type=radio value="<%=rs("id")%>" <% if rs("id")=skinid then response.write "checked"%>>
<a href="javascript:info("../../<%=rs("skinpic")%>")" style="text-decoration: none"><font color="#F2F2F2"><%=rs("userskinname")%></font></a></TD>
</TR>
</TABLE>
<DIV style="PADDING-TOP: 10px"></DIV></td>
<%if j mod 3 = 0 then %></TR><tr><%end if%>
<%
rowcount=rowcount-1
rs.movenext
j=j+1
loop
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="35" align="center" bgcolor="#DCEDFC"><%call listPages()%>
<%
sub listPages()
if not (rs.eof and rs.bof) then
gopage=currentpage
totalpage=n
blockPage=Int((gopage-1)/10)*10+1
if blockPage = 1 Then
Response.Write "<span disabled>【←前10页</span> "
Else
Response.Write("<span disabled>【</span><a href=webmod.asp?page="&blockPage-10&">←前10页</a> ")
End If
i=1
Do Until i > 10 or blockPage > n
If blockPage=int(gopage) Then
Response.Write("<font color=#FF0000>[<b>"&blockPage&"</b>]</font>")
Else
Response.Write("<a href=webmod.asp?page="&blockPage&">["&blockPage&"]</a>")
End If
blockPage=blockPage+1
i = i + 1
Loop
if blockPage > totalpage Then
Response.Write " <span disabled>后10页→】"
Else
Response.Write(" <a href=webmod.asp?page="&blockPage&">后10页→</a><span disabled>】")
End If
Response.Write(" 共"&n&"页 每页"&msg_per_page&"个模版 共"&totalrec&"个模版")
end if
end sub
%> </td>
</tr>
<% if is2weburl=1 then'在开启二级域名的情况下
set rste=conn.execute("select weburl_2 from wygkcn_corporation where id="&session("id"))
%>
<tr>
<td height="35" align="center">〖<font color="#C6554F"><b><%=session("user")%></b></font>〗网站二级域名：
http://<label>
<%
'^^^^^^处理二级域名称^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
%>
<input name="weburl_2" type="text" id="weburl_2" size="15" value="<%if trim(rste("weburl_2"))<>"" then%><%=rste("weburl_2")%><%else%><%=session("user")%><%end if%>" maxlength="18" readonly style="background-color:#0099CC;color:#FFFFFF"> .<%=weburl1%>
<%
'^^^^^^处理二级域名称^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
%>
</label></td>
</tr>
<%end if%>
<tr>
<td height="35" align="center" bgcolor="#FAFAFA"><input type="submit" value="选定模版到下一步>>"></td>
</tr>
<tr><td height="10" bgcolor="#DCEDFC"> </td></tr>
</table>
</form></TD>
</TR>
</TBODY>
</TABLE>
<br>
<br> <TABLE class=bdr1 cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD height=103>
<TABLE class=bdr2 cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD class=lh13 height=91><table cellSpacing="1" cellPadding="4" width="100%" align="center" border="0">
<tr>
<td class="lh15">
<span class="m"><br>
建立网站是<%=webname%>为会员提供的专有服务，拥有此服务，您将获得：</span><br>
<br>
·独立的二级域名（http;//会员名.<%=weburl1%>）网站<br>
·多种网站风格样式任您挑选<br>
·六合一的企业展示平台<br>
<br>
----------------------------------------------------------------------------------------
<br>
――让您轻松发布、查看供求商机<br>
――上传公司图片 展示企业形象<br>
――庞大的产品展厅<br>
――企业证书与荣誉的展示平台<br>
――智能在线招牌信息发布 </td>
</tr>
<%if session("yxflag")<>1 then%>
<tr>
<td height="40">
<div align="right"><span class="m"><br>
<br>
</span></div>
</td>
</tr>
<%end if%>
</table></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><br><br></TD>
</TR>
</TABLE>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -