⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 index.asp

📁 非常一般
💻 ASP
字号:
🔍 
<!--#include file="Conn.asp"-->
<!--#include file="Inc/Config.asp"-->

<% 
dim refererulr
    refererulr=request.servervariables("http_referer")
Function getHTTPPage(url) 
on error resume next 
dim http 
set http=Server.createobject("Msxml2.XMLHTTP") 
Http.open "GET",url,false 
Http.send() 
if Http.readystate<>4 then
exit function 
end if
getHTTPPage=bytes2BSTR(Http.responseBody) 
set http=nothing
if err.number<>0 then
err.Clear 
end if 
End Function 

Function bytes2BSTR(vIn) 
dim strReturn 
dim i,ThisCharCode,NextCharCode 
strReturn = "" 
For i = 1 To LenB(vIn) 
ThisCharCode = AscB(MidB(vIn,i,1)) 
If ThisCharCode < &H80 Then 
strReturn = strReturn & Chr(ThisCharCode) 
Else 
NextCharCode = AscB(MidB(vIn,i+1,1)) 
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
i = i + 1 
End If 
Next 
bytes2BSTR = strReturn 
End Function

Function GetPageTitle(HtmlContent)
Dim l,j,strTitle
l = InStr(LCase(HtmlContent), "<title>")
If l > 0 Then
l = l + 7
j = InStr(l, LCase(HtmlContent), "</title>")
If j > 0 Then
strTemp = Mid(HtmlContent, l, j - l) 
Else
strTemp = web_name
End If
Else
strTemp = web_name
End If
GetPageTitle = strTemp 
End Function

HtmlCldeContent = getHTTPPage(refererulr) '要提取页面的url地址
Title = GetPageTitle(HtmlCldeContent)
%>

<HTML>
<HEAD>
<TITLE><%=web_name%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gbk">
<STYLE type=text/css>
.MainMenuBGStyle {
	BACKGROUND-POSITION: right center; BACKGROUND-REPEAT: no-repeat
}
</STYLE>
<LINK href="Images/css.css" rel=stylesheet>

<% if web_safe="True" then %>
<script language="VBscript">
<!--
Sub checkdata()

if Trim(Feedback.mt1.value)=1 then
  If Trim(Feedback.Feedback1.value)=empty  Then
  dim an1
  an1=Trim(Feedback.tt1.value)
  an1=an1+"不能为空"
		Window.Alert(an1)
    Exit Sub
 	 End If
else
end if 

if Trim(Feedback.mt2.value)=1 Then   
 If Trim(Feedback.Feedback2.value)=empty  Then
  dim an2
  an2=Trim(Feedback.tt2.value)
  an2=an2+"不能为空"
		Window.Alert(an2)
     Exit Sub
	 End If 
	else
end if 
 
 if Trim(Feedback.mt3.value)=1 Then 
 If Trim(Feedback.Feedback3.value)=empty Then
  dim an3
  an3=Trim(Feedback.tt3.value)
  an3=an3+"不能为空"
		Window.Alert(an3)
		Exit Sub
     End If	
		else
 end if

if Trim(Feedback.mt4.value)=1 Then 
 If Trim(Feedback.Feedback4.value)=empty Then
  dim an4
  an4=Trim(Feedback.tt4.value)
  an4=an4+"不能为空"
		Window.Alert(an4)
		Exit Sub
     End If
	else
 end if
 
 if Trim(Feedback.mt5.value)=1 Then
 If Trim(Feedback.Feedback5.value)=empty Then
  dim an5
  an5=Trim(Feedback.tt5.value)
  an5=an5+"不能为空"
		Window.Alert(an5)
		Exit Sub
     End If 
 	else
 end if

if Trim(Feedback.mt6.value)=1 Then 
 If Trim(Feedback.Feedback6.value)=empty Then
  dim an6
  an6=Trim(Feedback.tt6.value)
  an6=an6+"不能为空"
		Window.Alert(an6)
		Exit Sub
     End If 
 	else
 end if
 
if Trim(Feedback.mt7.value)=1 Then
 If Trim(Feedback.Feedback7.value)=empty Then
  dim an7
  an7=Trim(Feedback.tt7.value)
  an7=an7+"不能为空"
		Window.Alert(an7)
		Exit Sub
     End If
 	else
 end if

if Trim(Feedback.mt8.value)=1 Then
If Trim(Feedback.Feedback8.value)=empty Then
  dim an8
  an8=Trim(Feedback.tt8.value)
  an8=an8+"不能为空"
		Window.Alert(an8)
		Exit Sub
     End If
 	else
 end if

if Trim(Feedback.mt9.value)=1 Then
 If Trim(Feedback.Feedback9.value)=empty  Then
  dim an9
  an9=Trim(Feedback.tt9.value)
  an9=an9+"不能为空"
		Window.Alert(an9)
		Exit Sub
     End If
 	else
 end if

if Trim(Feedback.mt10.value)=1 Then
 If Trim(Feedback.Feedback10.value)=empty Then
  dim an10
  an10=Trim(Feedback.tt10.value)
  an10=an10+"不能为空"
		Window.Alert(an10)
		Exit Sub
     End If
 	else
 end if
 
if Trim(Feedback.mt11.value)=1 Then
 If Trim(Feedback.Feedback11.value)=empty Then
  dim an11
  an11=Trim(Feedback.tt11.value)
  an11=an11+"不能为空"
		Window.Alert(an11)
		Exit Sub
     End If
 	else
 end if

if Trim(Feedback.mt12.value)=1 Then
 If Trim(Feedback.Feedback12.value)=empty Then
  dim an12
  an12=Trim(Feedback.tt12.value)
  an12=an12+"不能为空"
		Window.Alert(an12)
		Exit Sub
     End If
 	else
 end if
 
if Trim(Feedback.mt13.value)=1 Then
 If Trim(Feedback.Feedback13.value)=empty Then
  dim an13
  an13=Trim(Feedback.tt13.value)
  an13=an13+"不能为空"
		Window.Alert(an13)
		Exit Sub
     End If
 	else
 end if
 
 if Trim(Feedback.mt14.value)=1 Then
 If Trim(Feedback.Feedback14.value)=empty Then
  dim an14
  an14=Trim(Feedback.tt14.value)
  an14=an14+"不能为空"
		Window.Alert(an14)
		Exit Sub
     End If
 	else
 end if
 
 if Trim(Feedback.mt15.value)=1 Then
 If Trim(Feedback.Feedback15.value)=empty Then
  dim an15
  an15=Trim(Feedback.tt15.value)
  an15=an15+"不能为空"
		Window.Alert(an15)
		Exit Sub
     End If
 	else
 end if
 
 if Trim(Feedback.mt16.value)=1 Then
 If Trim(Feedback.Feedback16.value)=empty  Then
  dim an16
  an16=Trim(Feedback.tt16.value)
  an16=an16+"不能为空"
		Window.Alert(an16)
		Exit Sub
     End If
 	else
 end if
 
 if Trim(Feedback.mt17.value)=1 Then
 If Trim(Feedback.Feedback17.value)=empty Then
  dim an17
  an17=Trim(Feedback.tt17.value)
  an17=an17+"不能为空"
		Window.Alert(an17)
		Exit Sub
     End If
 	else
 end if

if Trim(Feedback.mt18.value)=1 Then 
 If Trim(Feedback.Feedback18.value)=empty Then
  dim an18
  an18=Trim(Feedback.tt18.value)
  an18=an18+"不能为空"
		Window.Alert(an18)
		Exit Sub
     End If
 	else
 end if
 
 if Trim(Feedback.mt19.value)=1 Then
 If Trim(Feedback.Feedback19.value)=empty Then
  dim an19
  an19=Trim(Feedback.tt19.value)
  an19=an19+"不能为空"
		Window.Alert(an19)
		Exit Sub
     End If
 	else
 end if
 
 if Trim(Feedback.mt20.value)=1 Then
 If Trim(Feedback.Feedback20.value)=empty Then
  dim an20
  an20=Trim(Feedback.tt20.value)
  an20=an20+"不能为空"
		Window.Alert(an20)
		Exit Sub
     End If
 	else
 end if
 
Feedback.submit	
End Sub
-->
</script>
<style type="text/css">
<!--
.style1 {font-size: 18px}
.style5 {font-size: 16px; font-weight: bold; }
.style6 {color: #FF0000}
.style7 {color: #FFFFFF}
-->
</style>
</head>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD width=980><div align="right"></div></TD>
    <TD width=980>
      <DIV align=center>
      
      <div align="center">
      <TABLE width=720 border=1 cellPadding=0 cellSpacing=0 bordercolor="#0033CC" 
      bgColor=#cdcdcd><tr><td>
	  <TABLE cellSpacing=0 cellPadding=0 width="720" border=0 bgcolor="#0033CC">
        <TBODY>
		
        <TR>
          <TD >
		  <TABLE width=720 height=30 align="center" cellPadding=5 cellSpacing=1 bgcolor="#0033CC">
        <TBODY>
        <TR>
          <TD><span class="style1"><span class="style5">　<span class="style6"><span class="style7"><%=web_name%></span></span></span></span></TD>
        </TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
	<TABLE width=720 cellPadding=5 cellSpacing=1 bgColor=#cdcdcd>
    <form method="POST" action="Save.asp" target="_blank" name="Feedback">
        <TBODY>
<TR bgColor=#fafafa>
<TD height=28 align="left" colspan="3">
 <%=indextext%>           
</TD>
</TR>

<%
 Set rs = Server.CreateObject("ADODB.RecordSet")
    Sql = "select * from list where listuse=True order by listorder"
 Rs.Open sql,conn,1,3
 If not rs.eof then
   If not isempty(request("page")) then   
    pagecount=cint(request("page"))   
   else   
    pagecount=1
   end if
   Rs.pagesize=20
   Rs.AbsolutePage=pagecount
   do while not Rs.eof
   j=j+1
   %>  
   <% dim i,Typ,fk,mt,tt
    i=trim(Rs("listid"))
    fk="Feedback"+i
	Typ="type"+i
	mt="mt"+i
	tt="tt"+i
	%>
         <TR bgColor=#fafafa>
          <TD height=28 width="20%" align="right"><%=Rs("listtitle")%></TD>
	  
		   <input type="hidden" name="<%=tt%>" value="<%=Rs("listtitle")%>">
		  <% if Rs("listtype")=True then %>
		 <TD height=28 width="60%">
         <select name="<%=fk%>">       
         <option selected>请选择</option>                                                                                                                                        
        <%
         Set rst = Server.CreateObject("ADODB.RecordSet") 
         Sql = "select * from "&typ&""
         Rst.Open sql,conn,1,3
         If not rst.eof then
         Count = rst.recordcount
         For i = 1 to count
         response.write "<option value='"&rst("Type_Value")&"'>"&rst("Type_Value")&"</option>"
         rst.movenext
         Next
         End if
         rst.close
         Set rst=Nothing 
         %>                                                                                                                                              
          </select>
         </TD><% else if rs("listtext")=False then %>
		 <TD width="60%" height=28><input name="<%=fk%>" type="text"  size="50" maxlength=80></TD>
		 <% else %>
		 <TD width="60%" height=28><textarea rows="9" name="<%=fk%>" cols="80" ></textarea></TD>
		 <%end if%>
		 <%end if%>
		 <% if Rs("listmust")=True then %>
		 <input type="hidden" name="<%=mt%>" value="1">
          <TD><font color="#FF0000">*</font></TD>
		  <% else %>
		   <input type="hidden" name="<%=mt%>" value="2">
		  <TD><font color="#FF0000"></font></TD>
		  <%end if%>
		  </TR>
 <%
 If j>=Rs.pagesize Then exit do
 Rs.movenext
 loop
 Else
%> 
<%End If%>
<%
 Rs.close
 Set rs = nothing
%>

<% Set rs = Server.CreateObject("ADODB.RecordSet")
    Sql = "select * from list where listuse=False"
 Rs.Open sql,conn,1,3
 If not rs.eof then
   If not isempty(request("page")) then   
    pagecount=cint(request("page"))   
   else   
    pagecount=1
   end if
   Rs.pagesize=20
   Rs.AbsolutePage=pagecount
   do while not Rs.eof
   k=k+1
   %> 
 <% dim l,mt1
    l=trim(Rs("listid"))
	mt1="mt"+l
	%> 
 <input type="hidden" name="<%=mt1%>" value="2">  
 <%
 If k>=Rs.pagesize Then exit do
 Rs.movenext
 loop
 Else
%> 
<%End If%>    
<%
 Rs.close
 Set rs = nothing
%>		
                    <TR bgColor=#fafafa>
          <TD height=28 align="right" colspan="3">
            <p align="center">
			<% if Title="" then Title=web_name end if %>
			<% if refererulr="" then refererulr="反馈主页" end if  %>
			 <input type="hidden" name="Title" value=<%=Title%> >  
			 <input type="hidden" name="refererulr" value=<%=refererulr%> >
                  <input type="button" onclick=checkdata() value="提 交 信 息" name="tijiao" class="input2"><span lang="zh-cn">&nbsp;&nbsp;&nbsp;&nbsp;
                  </span>&nbsp;<input type="reset" value="重 新 填 写" name="reset" class="input2"></TD>
          </TR></form></TABLE>
        <TR bgColor=#fafafa>
          <TD bgColor=#0033CC colSpan=3 height=29>
            <DIV align=center class="style7">&copy;2008-2009 CopyRight<a href="http://www.isstech.com.cn/" target="_blank"> <strong style="color:#FFFFFF ">IssTech.Co., Ltd</strong></a> All Rights Reserved</DIV></TD>
        </TR></TABLE>
		</div>
<BR></DIV></TD>
    <TD width=980><div align="left"></div></TD>
</TR></TBODY></TABLE>
<% else %>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<div align="center">本系统暂时停止反馈信息提交，敬请谅解！</div>
<% end if  %> 
</BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -