高asp程序使用心得

1，後臺添加管理界面問題：最好別動！牽涉面較多。
後臺產品添加處，設計字段較多，若是客戶只有單語版，後臺最好不動，而是要求客戶只填寫對應的字段便可。

如：前臺products.asp 裏面的搜索 就是取的 proname中文產品名稱。

if Trim(Request("k"))<>"" then
   k=Trim(Request("k"))
    Sql="Select * From Product Where ProPassInf="&True&" and ProNew="&false&" and pronamelike '%"&k&"%' Order By CataID ASC, ProList ASC,ProNo ASC,ProID ASC "
  set rsc2=conn.execute("Select * From Product Where ProPassInf="&True&" and ProNew="&false&" and proname like '%"&k&"%' Order By CataID ASC, ProList ASC,ProNo ASC,ProID ASC")
  if not rsc2.eof then
    EnCataName="SEARCHED PRODUCTS"
  else
    EnCataName="No find product!!!!"
  end if
  else
     Sql="Select * From Product Where ProPassInf="&True&" and ProNew="&false&" Order By CataID ASC, ProList ASC,ProNo ASC,ProID ASC "
     EnCataName="ALL PRODUCTS"
  end if 
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------

2，若是拷過來的程序，IIS配置好後，出現 function.asp 等等 報錯，則頗有多是，文件夾共享與安全的 user 組的問題。

 

4，分頁字體顏色更改在：

Manager\ConnStr\  Conn_index.asp   254行左右這塊。

 

 

5，服務器文件傳不上？

現象：本地文件正常，服務器始終傳不上文件，傳上去就被刪除了：Manager/Include/CheckFunction.asp ,結果與廣州新一代的技術人員溝通，得出結論：

在 Manager/Include/CheckFunction.asp 這個文件中的，如下代碼有問題。wscript.shell 這個對象一般被木馬用來提權。

 

解決辦法：刪掉如下代碼！

 

Function GetMACAddress(strIP)
    Set net = Server.CreateObject("wscript.network")
    Set sh = Server.CreateObject("wscript.shell")
     sh.run "%comspec% /c nbtstat -A " & strIP & " > c:\" & strIP & ".txt",0,true
    Set sh = nothing
    Set fso = createobject("scripting.filesystemobject")
    Set ts = fso.opentextfile("c:\" & strIP & ".txt")
     macaddress = null
    Do While Not ts.AtEndOfStream
     data = ucase(trim(ts.readline))
     If instr(data,"MAC ADDRESS") Then
      macaddress = trim(split(data,"=")(1))
      Exit Do
     End If
    loop
    ts.close
    Set ts = nothing
     fso.deletefile "c:\" & strIP & ".txt"
    Set fso = nothing
    GetMACAddress = macaddress
End Function

 

6，高程序友情連接循環代碼：

 

   <%

 Set Rs_dsj=Server.CreateObject("Adodb.RecordSet")

 Sql_dsj="Select * From [link_content] Order By ProList asc"

 Rs_dsj.Open Sql_dsj,Conn,1,1

 Do While Not Rs_dsj.Eof

%>

    <a href="<%=Rs_dsj("ProNo")%>"> <%=Rs_dsj("ProName")%></a>

  

<%

 Rs_dsj.MoveNext

 Loop

 Rs_dsj.close

%>

 

7，關於後臺管理員沒法修改密碼？

總提示：您輸入的驗證碼不對？
結查不是 UserSet.asp 的問題，找到數據庫中，UserCompany 字段下的值：Ningbo York Int&#39;l Trading Co., Ltd.

不清楚爲何有這些亂碼，總之，去掉便可。

最簡單的作法：直接刪掉整個上面的表格。

 

 

 

8，asp 首頁焦點大圖切換程序讀出【圖樂網】
 

<div id="focus">
  <ul>
<%
  Sql2="Select top 3 * From honor_content Where ProTui="&True&" and cataid=3 Order By ProList ASC,ProID ASC "

 Set Rs2= Server.CreateObject("Adodb.Recordset")
Rs2.Open Sql2,Conn,1,3

If Not Rs2.Eof Then

 Do While Not Rs2.Eof
PicUrl="Manager/Upload/Pic/"&Rs2("ProSmallPic")           
%>
<li><a href="<%=Rs2("EnProName")%>" target="_blank"><img src="<%= picurl %>"/></a></li>    
  <%
    Rs2.movenext
    loop
  end if
%>
  </ul>
</div>

 

 

9, 添加產品，提示 序號錯誤？

是你的縮略圖大小超過了100KB.

 

10，極速模式下的瀏覽器，編輯器高度受限制！沒法調整高！

Mozilla/4.0(compatible; MSIE 6.0; Windows NT 5.1)    複製這個到對應的框

   

 

 

11，後臺操做完類別隱藏後，前臺對應的隱藏起來。

Set RsSmallList=Conn.execute("Select * from CataTable where CataUpper="&RsBigList("CataID")&" and catainf="&False&"  Order By CataList Asc,CataID Asc")

 

12，新聞添加 新增圖片上傳

注意事項：

1. 表單提交方式，涉及到 新增 News_add.asp 和 編輯頁 ArticelModif.asp，<Form name="AddForm" action="ArticleSave.asp" method="post"  enctype="multipart/form-data">
2. 保存頁面 ArticleSave.asp 不能使用 request.form,  而是用 Tui=trim((upload.Form("Tui")))
3. 須要引入一個上傳的文件，<!--#include file="../UpLoad/FsoUp.Asp"-->  
4. 其餘報錯，多數爲記錄集已關閉等問題，請排查。

13，編碼問題 gb2132 轉 UTF-8

1. 記事本打開文件，保存選擇 UTF-8
2. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%Session.CodePage=936%> 將紅色部分改成：65001

14，產品添加報錯以下，解決辦法：將數據庫中的中英文名稱長度改成100

Microsoft JET Database Engine ���� '80040e21'

�ֶ�̫С�����ܽ�����Ҫ���ӵ����ݵ����������Ų����ճ�����ٵ����ݡ�

/demo/mpj/manager/product/Product_Save.asp���� 126

 

15，頁碼傳參問題。

<%call link("?k="&k&"&",page,totalpages,"cn")%>  原來頁面中的底部頁碼

 

寧波會計圈項目總結：

第一步：連接時給大類id

<a href="list-more.asp?CataID=72">+ 更多</a>

第二步：列表頁，獲取地址欄id，查找指定數據
  <%  
        If Trim(Request.QueryString("CataID"))<>"" Then
                CataID=Cint(Trim(Request.QueryString("CataID")))
                 Sql="Select * From Article Where ATypeID = "&CataID&" Order By LastModifTime Desc,ID Desc"
         End IF        
    %>

第三步：最後一步是關鍵：將大類id帶到地址欄。
<%call link("?k="&k&"&CataID="&CataID&"&",page,totalpages,"cn")%>

 

小技能：Response.Write(Conn.State) 判斷連接狀態是否正常。

16，後臺提示 您操做過期或未登陸,請從新登陸! 而後跳轉到了錯誤頁面。

在manager文件夾下的 main.asp 裏找到以下：
Response.Write("alert('您操做過期或未登陸,請從新登陸!');window.location.href='AdminLogin.asp';") ----》改成

 

 

17，數據庫表文件找不到對應的字段？好比proList，這個主要是數據表隱藏了一些不太經常使用的字段