📄 index.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../conn/conn.asp"-->
<!--#include file="../Inc/Commoncode.asp" -->
<!--#include file="../inc/CommonFunction.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用户操作帮助－常见问题解答－<%=SiteName%></title>
<link href="../css/css1.css" rel="stylesheet" type="text/css">
<%
if request("typeid")<>"" then
if Chkrequest(request("typeid")) then
typeid=request("typeid")
end if
end if
%>
<style type="text/css">
<!--
.sec_menu {OVERFLOW: hidden}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_showHideLayers() { //v6.0
var i,p,v,obj,args=MM_showHideLayers.arguments;
for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
obj.visibility=v; }
}
//-->
</script>
<SCRIPT language=javascript>
function menuShow(obj,maxh,obj2)
{
if(obj.style.pixelHeight<maxh)
{
obj.style.pixelHeight+=maxh/10;
obj.filters.alpha.opacity+=10;
obj2.background="../images/title.gif";
if(obj.style.pixelHeight==maxh/5)
obj.style.display='block';
myObj=obj;
myMaxh=maxh;
myObj2=obj2;
setTimeout('menuShow(myObj,myMaxh,myObj2)','5');
}
}
function menuHide(obj,maxh,obj2)
{
if(obj.style.pixelHeight>0)
{
if(obj.style.pixelHeight==maxh/10)
obj.style.display='none';
obj.style.pixelHeight-=maxh/10;
obj.filters.alpha.opacity-=10;
obj2.background="../images/title.gif";
myObj=obj;
myMaxh=maxh
myObj2=obj2;
setTimeout('menuHide(myObj,myMaxh,myObj2)','5');
}
else
if(whichContinue)
whichContinue.click();
}
function menuChange(obj,maxh,obj2)
{
if(obj.style.pixelHeight)
{
menuHide(obj,maxh,obj2);
whichOpen='';
whichcontinue='';
}
else
if(whichOpen)
{
whichContinue=obj2;
whichOpen.click();
}
else
{
menuShow(obj,maxh,obj2);
whichOpen=obj2;
whichContinue='';
}
}
</SCRIPT>
</head>
<%html="{$FR_网站页头}"
html=ReplaceLableFlag(ReplaceAllLabel(html))
Response.Write(CreateHTMLReplace(html))
%>
<div class="place">
<div class="catalogName l"></div>
<div class="navMenu l">您现在的位置：<a href="<%=Siteurl%>"><%=Sitename%></a> >> 会员帮助系统</div>
</div>
<div class="main">
<table width="100%" border="0" cellpadding="4" cellspacing="0" class="bl1 mt10">
<tr>
<td class="f14b1">会员操作帮助信息</td>
</tr>
<tr>
<td style="padding:0;">
<table width="190" border="0" cellspacing="0" cellpadding="0" style="float:left">
<tr>
<td height="442" valign="top"><ul>
<%
Set hrs=conn.Execute("select * from JOB_help_sort order by sortid desc")
If Not hrs.eof then
Do While Not hrs.eof
n=n+1%>
<li style="width:100%; font-size:14px; font-weight:bold; border-bottom:1px #eeeeee dashed; background-color:#F6F6F6; padding-left:10px; padding-top:6px; height:28px; line-height:150%;"><%=hrs("sort")%></li>
<%Set Rs=conn.Execute("select * from JOB_help_type where sortid="&hrs("sortid")&" order by typeid desc")
If Not Rs.eof then
Do While Not Rs.eof
m=m+1%>
<li style="width:100%; background-color:#F9F9F9; padding-left:20px; padding-top:6px; height:28px; line-height:150%;" onMouseOver="this.style.backgroundColor='#FFFFFF';" onMouseOut="this.style.backgroundColor='#F9F9F9';"><a href='index.asp?typeid=<%=rs("typeid")%>'><%=rs("typename")%></a></li>
<%rs.movenext
loop
end if
rs.close
set rs=nothing
hrs.movenext
loop
end if
hrs.close
set hrs=nothing%>
</ul>
</td>
</tr>
</table>
<div class="mright1">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><%
searchPlace=Replace_Text(request("searchPlace"))
keywords=Replace_Text(request("keywords"))
set rs=server.createobject("adodb.recordset")
sql="select * from JOB_help"
if keywords<>"" then
if searchPlace=1 then
sql=sql&" where showname like '%"&keywords&"%'"
end if
if searchPlace=2 then
sql=sql&" where content like '%"&keywords&"%'"
end if
else
if typeid<>"" then
sql=sql&" where typeid="&typeid&""
else
'sql=sql&" where typeid=1"
sql=sql
end if
end if
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="29%" height=40>
<%if not rs.eof then%>
<font color="#ff0000" style="font-size:18px; font-weight:bold;">
<%
sqlsort="select * from JOB_help_sort where sortid="&rs("sortid")&""
set rssort=conn.execute(sqlsort)
response.write""&rssort("sort")&""
%></font>
<%end if%>
</td>
<td width="71%" align="right" valign="center"><script>
function checkForm(){
if(document.search.keywords.value=='请输入关键字'||document.search.keywords.value=='')
{
alert("关键字为空，请输入关键字！");
return false;
}
}
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name=search action="" method="get" onSubmit="return checkForm()">
<input name=do type=hidden value="true">
<input name=comeFrom type=hidden value="function">
<input name=block type=hidden value="all">
<tr>
<td align="right"><font class=s>提问：</font>
<input name="keywords" type="text" class="inputs" onClick="if(document.search.keywords.value=='请输入关键字'){document.search.keywords.select();document.search.keywords.focus();}" value="请输入关键字" size="20">
<select name="searchPlace">
<option value=1 >按标题找</option>
<option value=2 >按内容找</option>
</select>
<input type="submit" name="Submit" value="找答案" class="inputs"></td>
</tr>
</form>
</table></td>
</tr>
</table>
<%if request("id")<>"" then%>
<table width="100%" border="0" align=right cellpadding="0" cellspacing="0">
<%
id=request("id")
set rs=server.createobject("adodb.recordset")
sql="select * from JOB_help where id="&id&""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if not rs.eof then%>
<tr>
<td height=28 style="border-bottom:1px #eeeeee dashed;" class=f14> <strong><a href=index.asp?id=<%=rs("id")%>><%=rs("showname")%></a></strong></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><p style="line-height:150%"><br>
<%=rs("content")%></td>
</tr>
<%end if
rs.Close()%>
<tr>
<td height=50 align=center bgcolor="#FFFFFF"><a href="javascript:history.go(-1)" class=red><strong>返回 >></strong></a></td>
</tr>
</table>
<%else%>
<table width="100%" border="0" align=right cellpadding="0" cellspacing="0">
<%
if rs.eof then
response.Write"<br><br><div align='center'>暂无数据信息</div><br><br>"
else
do while not rs.eof
%>
<tr>
<td height=28 class=f14> <strong><a href="index.asp?id=<%=rs("id")%>" class="f14">
<% Set re = New RegExp
re.Pattern ="("&keywords&")"
re.IgnoreCase = True
re.Global=True
result = re.Replace(rs("showname"), "<font color=red>$1</font>")%>
<%=result%></a></strong></td>
</tr>
<tr>
<td height=30 bgcolor="#FFFFFF" style="border-bottom:1px #eeeeee dashed;"><p style="line-height:150%"><%=left(rs("content"),100)&"..."%></td>
</tr>
<%
rs.movenext
loop
end if%>
</table>
<%end if%>
</td>
</tr>
</table>
</div></td>
</tr>
</table>
</div>
<%html="{$FR_网站页尾}"
html=ReplaceLableFlag(ReplaceAllLabel(html))
html=Replace(html,"{$FR_页尾导航}",GetSitebottomnav())
Response.Write(CreateHTMLReplace(html))
Conn.Close
Set Conn=Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -