'----------------------------------------------------------
'TargetString:目标字符串
'Dir:指定位置,第几个位置
'MM_String:需要插入的字符
'-------------------------------------------------------------
Function Addstring(TargetString,Dir,MM_String)
IF Dir >Len(Trim(TargetString)) Then
Addstring = TargetString
Else
StartString = Left(TargetString,Dir-1)
EndString = Right(TargetString,Len(Trim(TargetString))-Dir+1)
Addstring =StartString &MM_String &EndString
End IF
End Function
如果不确定字符串长度,只是在特定的字后面添加某字符,则:
'----------------------------------------------------------
'TargetString:目标字符串
'CheckString:指定字符
'MM_String:需要插入的字符
'-------------------------------------------------------------
Function AddstringX(TargetString,CheckString,MM_String)
IF Instr(TargetString,CheckString)<0 Then
AddstringX = TargetString
Else
StartString = Left(TargetString,Instr(TargetString,CheckString))
EndString = Right(TargetString,Len(TargetString)-Instr(TargetString,CheckString))
AddstringX =StartString &MM_String &EndString
End IF
End Function
------------------------------------------------------------
注:以上代码在Windows 7+IIS6中测试通过。
测试范例:
<%
MM_String = "我是中国人"
%>
<%=AddstringX(MM_String,"我","们都")%><br />
<%=addstring(MM_String,2,"们")%><br />
sql="ALTER TABLE doc_exa ADD column_b VARCHAR(20) NULL "然后用一个对象(connection对象或recordset对象)来执行这条SQL语句
doc_exa是表名
column_b是新加的字段
VARCHAR(20)是新加字段的类型和长度
以上的3个变量可以通过表单输入来做成动态的
大致就是这样的~
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)