高asp程序使用心得

最新推荐文章于 2025-09-08 20:55:49 发布

weixin_34273046

最新推荐文章于 2025-09-08 20:55:49 发布

阅读量998

点赞数

CC 4.0 BY-SA版权

文章标签：数据库 shell python

原文链接：https://my.oschina.net/u/583531/blog/744071

2019独角兽企业重金招聘Python工程师标准>>>

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

Rs_dsj.MoveNext

Loop

Rs_dsj.close

7，关于后台管理员无法修改密码？

总提示：您输入的验证码不对？
结查不是 UserSet.asp 的问题，找到数据库中，UserCompany 字段下的值：Ningbo York Int'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，新闻添加新增图片上传

注意事项：

表单提交方式，涉及到 新增 News_add.asp 和 编辑页 ArticelModif.asp，<Form name="AddForm" action="ArticleSave.asp" method="post" enctype="multipart/form-data">
保存页面 ArticleSave.asp 不能使用 request.form, 而是用 Tui=trim((upload.Form("Tui")))
需要引入一个上传的文件，
其他报错，多数为记录集已关闭等问题，请排查。

13，编码问题 gb2132 转 UTF-8

记事本打开文件，保存选择 UTF-8
<%@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) 判断链接状态是否正常。

转载于:https://my.oschina.net/u/583531/blog/744071