" response .write " "& Session (" rs "). AbsolutePosition &" TD> "for i = 0 to session (" rs "). Fields.count-1 response.write" | "& session (" RS ") (i). Value & " TD>" Next Response.write " TR>" Session ("RS"). MoveNext IF SESSION ("RS"). EOF THEN EXIT for end if Next ...
Include file = "link.asp" -> Auxiliary completed multi-screen display search results link.asp <% IF session ("rs"). AbsolutePage> 0 Then NowPage = Session ("RS"). AbsolutePage-1 else noPage = Session ("RS"). PageCount end if response.write " | Current page number:" & NOWPAGE & "" Response.write "| Total number of pages:" rS "). PageCount &" Response .write "| Total number:" & session ("rs"). Recordcount & "Response.write | per page record:" & session ("rs"). Pagesize & " font> " for i = 1 TO Session ("RS"). PageCount if i <> nopage thrill.write " "&" ELSE Response.write I & "End if Next%> Supply and demand information registration subsystem users can post their own goods or requirements information to the web. User supply and demand information is automatically managed according to the user level by the background database, and is automatically managed according to the user level. This subsystem is mainly done by the program goods_add.asp.
Accept registration information from users and complete registration Goods_add.asp <% 'accept data from commodity registration interface UserName = Request.Cookies ("UserName") ... set conn = server.createObject ("adodb.connection" conn.connectionString = "Driver = {SQL Server}; server =; uid =; pwd =; database =" conn.open 'for user authentication sql1 = "select * from park_online where name ='" & username & "'order by name" set RS1 = conn.execute (sql1) if rs1.eof then response.write "access denied": response.end sql = "insert into market_goods values ( '" & client_type & "', '" & goods_name & "', '" & goods_class & "', ' "& Description &", '"& publisher &",' "& contact &", getdate ()) "conn.execute (sql) set conn = Nothing response.redirect" ../log.htm "%> Online User Talk Subsystem The system imitates the market in real life. The online supply and demand can directly communicate related information, determine the transaction price of the goods, to determine the deal or not. Mainly complete by the program addsay.asp, Say.asp.
AddSay.asp <% ... Says = Request.form ("Says") SAYS = Server.htmlencode (SAYS) SQL = "Insert INTO PARK_SAYS VALUES ('" & username & ",'" & towho ", '" & towhoway & " , '"& Subject &",' "& Says &" ', getdate (),' ') "Conn.execute SQL SET CONN = Nothing response.redirect" Say.asp "... Say.asp <% username = Request.cookies "username") subject = request.cookies ( "subject") set conn = server.createobject ( "adodb.connection") conn.connectionstring = "driver = {sql server}; server = ntd0; uid = xpm; pwd = xpm123 Database = park "conn.open set = conn.execute (" SELECT NAME FROM PARK_OONLINE WHERE NAME = '"& username &"') IF = '") IF ='") IF = '") IF ='" User, prohibit it to continue to stay in the market |