html生成静态页的小程序

				
				
				
				
				
				
				
								IsPass = Request.QueryString("IsPass")
				Set Guest = New Ok3w_Guest
				
				If Request.Form("action")="ok" Then
					If Request.Form("IsDel")="1" Then
						ID = Trim(Request.QueryString("ID"))
						Call Guest.Del(ID)
						Set Guest = Nothing
						Call SaveAdminLog("删除留言，ID=" & Request.QueryString("IsPass"))
						Call ActionOk("Guest_List.asp?IsPass=" & IsPass)
						Else
							ID = Trim(Request.QueryString("ID"))
							IsPass = Trim(Request.Form("IsPass"))
							If IsPass="" Then IsPass = 0
							Cask = Trim(Request.Form("ask"))
							Content = Trim(Request.Form("Content"))
							Call Guest.Ask(Cask,Content,IsPass,ID)
							
							TableID = Trim(Request.Form("TableID"))
							If TableID0 Then
								Call Article_Page_Html(TableID)
							End If
							
							Set Guest = Nothing
							Call SaveAdminLog("回复/开通/关闭留言，ID=" & ID)
							Call ActionOk("Guest_List.asp?IsPass=" & Request.QueryString("IsPass"))
					End If
				End If
				%>
				
				
				
				
				后台管理系统
				
				
				
				
				
				
				  
				    
				      				    background="images/tab_top_bg.gif">
				        
				          
				            
				              
				                
				                  				                  src="images/tab_active_left.gif" width="3" />
				                  				                background="images/tab_active_bg.gif">留言/评论管理
				                  				                  src="images/tab_active_right.gif" 
				            width="3" />
				                
				              
				            
				          
				        
				      
				    
				    
				      
				        
				          
				            				            src="images/tab_bg.gif" width="1" />
				            				          style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; PADDING-TOP: 10px" 
				          valign="top">
				              				            bgcolor="#8ccebd" border="0">
				                
				                  
				                    				                style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; PADDING-TOP: 10px" 
				                valign="top" bgcolor="#fffcf7">				stype = Trim(Request.QueryString("stype"))
				keyword = Trim(Request.QueryString("keyword"))
				Sql = "select * from Ok3w_Guest where 1=1"
				If IsPass"" Then Sql=Sql & " and IsPass=" & IsPass
				If keyword"" Then Sql = Sql & " and " & stype & " like '%" & keyword & "%'"
				Sql = Sql & " order by Id desc"
				Set Page = New TurnPage
				Call Page.GetRs(Conn,Rs,Sql,10)
				%>
				                      
				                        
				                          
				                             
				                              
				                                按用户
				                              按标题
				                              按内容
				                              
				                                
				                                
				                          
				                        
				                        
				                          发布者信息
				                          内容
				                          回复
				                          开通
				                          确定
				                        
				                        
				                          					Do While Not Rs.Eof And Not Page.Eof
					%>
				                          
				                            
				                              姓名：
				邮箱：
				主页：
				OICQ：
				时间：
				IP：
				                            
				                              评论：《》
				                              
				                            
				                            
				                            
				                            
				                              
				                              
				                              
				                           
				                          						Rs.MoveNext
						Page.MoveNext
					Loop
					Rs.Close
					%>
				                          
				                          
				                            
				                          
				                      
				                  
				                
				              
				            
				            				            src="images/tab_bg.gif" width="1" />
				          
				        
				      
				    
				    
				      				      src="images/tab_bg.gif" width="1" />
				    
				  
				
				
				
								Set Guest = Nothing
				Set Rs = Nothing
				Call CloseConn()
				Set Admin = Nothing
				%>