Recommended: How to use the asp program to handle the problem of the database being hung up After the database is hung up, many people don’t know how to deal with it, or the processing is incomplete, resulting in Trojans still appearing after the web page is opened. This article introduces a better solution for your reference. Step 1: Make backups for existing databases. Step 2: Execute the following ASP file to remove the JS Trojans in the database. (Note: conn.asp is omitted) 'Put in JS wood here
This is a normal webpage file| html> <head> <metahttp-equiv=Content-Typecontent=text/html;charset=gb2312/> <title>News Picture Rotation</title> </head> <body> <!--#Includefile=diaoyong.asp--> </body> </html> |
For any web page, just call the following file (diaoyong.asp), and the flash file used is in the attachment.
| <% 'News pictures rotation Db=../Data/Data.Asp Setconn=Server.CreateObject(ADODB.Connection) Connstr=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&Server.MapPath(db) Conn.OpenConnstr sql=selecttop5*from[Music_List_Tupian_System]whereIswNumsSex= 'rotating picture' orderbyIswNumsIDdesc setrs=server.createobject(adodb.recordset) rs.opensql,conn,1,1 ifnotrs.eofthen k=1 Num_total=rs.recordcount fori=1to5 ifi>Num_totaltheneexitfor ifi=1then imgUrl11=Img/&rs(IswNumsPhoto) iflen(rs(IswNumsUser))>=18then imgtext11=left(rs(IswNumsUser),18)&... else imgtext11=rs(IswNumsUser) endif imgLink11=rs(IswNumsClass) endif ifi=2then imgUrl22=Img/&rs(IswNumsPhoto) iflen(rs(IswNumsUser))>=18then imgtext22=left(rs(IswNumsUser),18)&... else imgtext22=rs(IswNumsUser) endif imgLink22=rs(IswNumsClass) endif ifi=3then imgUrl33=Img/&rs(IswNumsPhoto) iflen(rs(IswNumsUser))>=18then imgtext33=left(rs(IswNumsUser),18)&... else imgtext33=rs(IswNumsUser) endif imgLink33=rs(IswNumsClass) endif ifi=4then imgUrl44=Img/&rs(IswNumsPhoto) iflen(rs(IswNumsUser))>=18then imgtext44=left(rs(IswNumsUser),18)&... else imgtext44=rs(IswNumsUser) endif imgLink44=rs(IswNumsClass) endif ifi=5then imgUrl55=Img/&rs(IswNumsPhoto) iflen(rs(IswNumsUser))>=18then imgtext55=left(rs(IswNumsUser),18)&... else imgtext55=rs(IswNumsUser) endif imgLink55=rs(IswNumsClass) endif rs.movenext k=k+1 next else There is no data for the response.write yet! endif %> |
Share: Detailed explanation of asp's FileSystemObject object Does the specified drive exist? This example demonstrates how to use the DriveExists method to detect whether a drive exists. The code is as follows: html body % Setfs=Server.CreateObject(Scripting.FileSystemObject) ifffs.driveexists(c:)=truethen Response.Write(Drive c: exists.) Else Response.Wr
2 pages in total Previous page 12 Next page